diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/predict.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/predict.R b/R/predict.R index 1d1b00c..00db521 100644 --- a/R/predict.R +++ b/R/predict.R @@ -84,7 +84,7 @@ compare <- function(data,nahead=1,...){ Actual=as.numeric(outputData(data)[,1]),Y) meltdf <- melt(df,id="Time") - ggplot(meltdf,aes(x=Time,y=value,color=variable,group=variable))+geom_line()+ + ggplot(meltdf,aes(x=Time,y=value,color=variable,group=variable))+geom_line(size=1)+ ggtitle(paste("Comparison with model predictions",nahead,"step(s) ahead"))+ - theme_bw() + theme_bw()+ylab(outputNames(data)) + labs(colour="") + scale_colour_hue(l=50) }
\ No newline at end of file |