Displaying 1 result from an estimated 1 matches for "reslow2".
Did you mean:
reslow
2013 Sep 27
0
Best and Worst values
...arize, 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[resHigh1[,2]>0,]
resFinal<- merge(resLow2,resHigh2,by=c("Date","id"),all=TRUE)
resNew<- as.data.frame(matrix(0,nrow(resFinal)*2,3))
resNew[,1]<-rep(resFinal$Date,each=2)
###indexing is not that important her...