diff options
| author | Suraj Yerramilli | 2015-09-09 09:32:14 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-09-09 09:32:14 +0530 |
| commit | 55aae231ad3e2feec4ad2f7be1daeb83e4452b52 (patch) | |
| tree | ab797425a52a4e351573e55e56e982291b31624d /R | |
| parent | 3d6d85a50138a828403ef2b19164ae5ae6fe30df (diff) | |
| download | SysID-R-code-55aae231ad3e2feec4ad2f7be1daeb83e4452b52.tar.gz SysID-R-code-55aae231ad3e2feec4ad2f7be1daeb83e4452b52.tar.bz2 SysID-R-code-55aae231ad3e2feec4ad2f7be1daeb83e4452b52.zip | |
Function Working for SISO systems
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 30a54f2..604cbfc 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -63,7 +63,7 @@ plot.estPoly <- function(model,newdata=NULL){ } else{ if(class(newdata)!="idframe") stop("Only idframe objects allowed") ypred <- sim(coef(model),inputData(newdata)) - yact <- outputData(newdata) + yact <- outputData(newdata)[,1] time <- time(newdata) titstr <- "Predictions of Model on Test Set" } @@ -78,7 +78,7 @@ residplot <- function(model,newdata=NULL){ e <- resid(model); u <- model$input } else{ if(class(newdata)!="idframe") stop("Only idframe objects allowed") - e <- newdata$output - predict(model,newdata$input) + e <- newdata$output[,1] - predict(model,newdata$input) u <- newdata$input } |