Displaying 1 result from an estimated 1 matches for "reslow1".
Did you mean:
reslow
2013 Sep 27
0
Best and Worst values
...at2New<- dat2[!(is.na(dat2$Predict)|is.na(dat2$Actual)),]
?dat3<- dat2New[order(dat2New$S1,dat2New$Predict),]
library(plyr)
resLow<-ddply(dat3,.(S1),summarize, cbind(head(Predict,5),head(Actual,5)))
resHigh<-ddply(dat3,.(S1),summarize, cbind(head(rev(Predict),5),head(rev(Actual),5)))
?resLow1<-data.frame(Date=resLow[,1],Predict=resLow[,2][,1],Actual=resLow[,2][,2])
?resHigh1<-data.frame(Date=resHigh[,1],Predict=resHigh[,2][,1],Actual=resHigh[,2][,2])
?resHigh1$id<- 1:nrow(resHigh1)
?resLow1$id<- 1:nrow(resLow1)
resLow2<-resLow1[!resLow1[,2]>=0,]
resHigh2<- resHigh1[...