diff options
| author | Suraj Yerramilli | 2015-11-01 18:56:02 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-11-01 18:56:02 +0530 |
| commit | 4cf4a8cc48ab71f9e0af1f91a58ec0561a4e1b08 (patch) | |
| tree | e54ba0c0bdec37a8696cd6398d630b9e8198adb7 /R | |
| parent | 06c785249d57f74c47858fc09e4d9d5abfa5c745 (diff) | |
| download | SysID-R-code-4cf4a8cc48ab71f9e0af1f91a58ec0561a4e1b08.tar.gz SysID-R-code-4cf4a8cc48ab71f9e0af1f91a58ec0561a4e1b08.tar.bz2 SysID-R-code-4cf4a8cc48ab71f9e0af1f91a58ec0561a4e1b08.zip | |
Minor corrections to the plot
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 16e8985..d1f72d4 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -90,7 +90,7 @@ plot.estPoly <- function(model,newdata=NULL){ time <- time(newdata) titstr <- "Predictions of Model on Test Set" } - df <- data.frame(Predicted=ypred,Actual=yact,Time=time) + df <- data.frame(Predicted=ypred[,1],Actual=yact[,1],Time=time) ggplot(df, aes(x = Actual,y=Predicted)) + ggtitle(titstr) + geom_abline(intercept=0,slope=1,colour="#D55E00") + geom_point() } |