diff options
| author | Suraj Yerramilli | 2016-01-07 01:05:02 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-01-07 01:05:02 +0530 |
| commit | 5b9dee3637e7f9c3f5a25a23cd978e1c22d7282b (patch) | |
| tree | 7f16154472bc6cf3cdd4015dfe5eb6b358eb7bc8 /R | |
| parent | a1e0b37cfb8390188ce717e974b6cc8a5d007b97 (diff) | |
| download | SysID-R-code-5b9dee3637e7f9c3f5a25a23cd978e1c22d7282b.tar.gz SysID-R-code-5b9dee3637e7f9c3f5a25a23cd978e1c22d7282b.tar.bz2 SysID-R-code-5b9dee3637e7f9c3f5a25a23cd978e1c22d7282b.zip | |
Output Modifications
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 |