diff options
| author | Suraj Yerramilli | 2016-05-22 12:21:39 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-05-22 12:21:39 +0530 |
| commit | 8d2cd6167d230359a0bcb069cb7973d6e3a63adf (patch) | |
| tree | 0db749f431188387683bb26a0f84f17cb1a2a1f3 | |
| parent | 1fad9cfca90f28a6a1bcac7380974fc9d38eca6a (diff) | |
| download | SysID-R-code-8d2cd6167d230359a0bcb069cb7973d6e3a63adf.tar.gz SysID-R-code-8d2cd6167d230359a0bcb069cb7973d6e3a63adf.tar.bz2 SysID-R-code-8d2cd6167d230359a0bcb069cb7973d6e3a63adf.zip | |
minor changes
| -rw-r--r-- | R/predict.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/predict.R b/R/predict.R index 01a5fc9..f2c58eb 100644 --- a/R/predict.R +++ b/R/predict.R @@ -110,7 +110,7 @@ compare <- function(data,nahead=1,...){ sep=": ") df <- data.frame(Time = as.numeric(time(data)), Actual=as.numeric(outputData(data)[,1]),Y) - meltdf <- melt(df,id="Time") + meltdf <- reshape2::melt(df,id="Time") 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"))+ |