-3

このようなzooオブジェクトを含むファイルがいくつかあります（各ファイルは異なる日付で開始および終了します）：

           code pp  
1942-06-01 4016  0  
1942-06-02 4016  NA  
1942-06-03 4016  0  
1942-06-04 4016  0  
1942-06-05 NA    0  
1942-06-06 NA    0

9月、10月、11月のすべてのファイルのpp間で相関行列を作成したいと思います（誰が誰であるかを識別できるようにコードを表示します）。コード列にNAがあるため、list.files関数（異なるファイル間の相関行列でJoranから提供されたコード）を使用できません。だから私は次のコードを思いついた：

files <- list.files(pattern=".csv")
xx<-read.zoo(files[1],sep=",", header=TRUE,index.column=1)  
name<- as.name(xx$code[[1]])  
colnames(xx) <- c("code", name)  
x<-xx[months(time(xx), TRUE) %in% c("Sep", "Oct", "Nov")]  
yy<-read.zoo(files[2],sep=",", header=TRUE,index.column=1)  
name<- as.name(yy$code[1])  
colnames(yy) <- c("code", name)  
y<-yy[months(time(yy), TRUE) %in% c("Sep", "Oct", "Nov")]  
CET<-merge(x, y, all = TRUE, fill = NA, check.names=FALSE)  
for (i in 3:length(files))  
{
  z<-read.zoo(files[i],sep=",", header=TRUE,index.column=1)  
  name<- as.name(z$code[1])  
  colnames(z) <- c("code", name)  
  CET<-merge(CET, z, all = TRUE, fill = NA, check.names=FALSE)  
}  
a<-1:(dim(CET)[2])  
even <- a[ a%%2 == 0 ]    
# saves the precipitation column (even numbers) and discards the code ones
dat<-CET[,even]
c.mat<-cor(dat,use="pairwise.complete.obs" )

しかし、何かが間違っています。相関行列では、列/行の名前の一部に余分な「.z」ま​​たは「.CET」があり、最も重要なのは、相関係数が正しくないことです。私は問題を見つけることができないので、問題を見つけるか、これを行うためのより簡単なコードを提案する助けがあれば非常にありがたいです！

4

1 に答える 1

0

理由はわかりませんが、各ファイルから必要な月を抽出して 1 つのファイルにマージするのではなく、ファイルをマージして必要な月だけを抽出すると、相関の値が正しくなります。つまり、次のとおりです。

files <- list.files(pattern=".csv") x<-read.zoo(files[1],sep=",", header=TRUE,index.column=1)
y<-read.zoo(files[2],sep=",", header=TRUE,index.column=1)
CET<-merge(x, y, all = TRUE, fill = NA, check.names=FALSE)
for (i in 3:length(files))
{
z<-read.zoo(files[i],sep=",", header=TRUE,index.column=1)
CET<-merge(CET, z, all = TRUE, fill = NA, check.names=FALSE)
}
a<-1:(dim(CET)[2])
even <- a[ a%%2 == 0 ]
dat<-CET[,even]
dat.aut<-dat[months(time(dat), TRUE) %in% c("Sep", "Oct", "Nov")]
c.mat<-cor(dat.aut,use="pairwise.complete.obs" )

于 2011-06-24T13:51:36.087 に答える