diff options
| author | Suraj Yerramilli | 2015-06-06 09:36:36 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-06 09:36:36 +0530 |
| commit | b088c8ed9e19e0f406875364b2ee3f3695824f78 (patch) | |
| tree | 3e8af2e9842e503b4fdcd718922bb8be26824f31 | |
| parent | 770703a5e180ed20a74dc97d4e7a973bc4febe95 (diff) | |
| download | SysID-R-code-b088c8ed9e19e0f406875364b2ee3f3695824f78.tar.gz SysID-R-code-b088c8ed9e19e0f406875364b2ee3f3695824f78.tar.bz2 SysID-R-code-b088c8ed9e19e0f406875364b2ee3f3695824f78.zip | |
Added plot method for estPoly objects
| -rw-r--r-- | NAMESPACE | 1 | ||||
| -rw-r--r-- | R/estpoly.R | 10 |
2 files changed, 11 insertions, 0 deletions
@@ -1,5 +1,6 @@ # Generated by roxygen2 (4.1.1): do not edit by hand +S3method(plot,estPoly) S3method(plot,idframe) S3method(plot,idfrd) S3method(plot,impulseest) diff --git a/R/estpoly.R b/R/estpoly.R index 70e98b2..8e07e4a 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -1,3 +1,13 @@ +#' @export +plot.estPoly <- function(model,newdata=NULL,...){ + if(is.null(newdata)){ + + } else{ + + if(class(newdata)!="idframe") stop("Only idframe objects allowed") + } +} + #' Estimate ARX Models #' #' @export |