Displaying 1 result from an estimated 1 matches for "indx4".
Did you mean:
indx
2013 Sep 27
0
Best and Worst values
...s the column numbers Predict in resFinal
indx2<-c(rep(seq(1,100,by=2),each=5),rep(seq(2,100,by=2),each=5))
indx3<- indx[order(indx2),]
resNew[,2]<-as.numeric(resFinal[indx3])
indx1<-cbind(rep(seq_len(nrow(resFinal)),2),rep(c(6,4),each=250)) #6,4 represent the columns Actual in resFinal
indx4<- indx1[order(indx2),]
resNew[,3]<-as.numeric(resFinal[indx4])
colnames(resNew)<- c("Date","Predict","Actual")
CorRes<-ddply(resNew,.(Date),summarize,Correl=cor(Predict,Actual,use="complete.obs"))
?head(CorRes)
#??????? Date??? Correl
#1 2006-0...