Displaying 1 result from an estimated 1 matches for "resfinal".
Did you mean:
prefinal
2013 Sep 27
0
Best and Worst values
...=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 here.? You can just ?melt() or ?reshape() from wide to long format and when you try ddpl...