diff options
| author | Suraj Yerramilli | 2015-06-07 18:01:18 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-07 18:01:18 +0530 |
| commit | d6036ccc9963acf0903457e48150f608eb77dd8c (patch) | |
| tree | 36d1372478c31eb00a9d9de794ba0768af3506a5 | |
| parent | 6076093b5c39d2cda15f75409e1cfea439b8e0c4 (diff) | |
| download | SysID-R-code-d6036ccc9963acf0903457e48150f608eb77dd8c.tar.gz SysID-R-code-d6036ccc9963acf0903457e48150f608eb77dd8c.tar.bz2 SysID-R-code-d6036ccc9963acf0903457e48150f608eb77dd8c.zip | |
Minor changes in the estARX function
| -rw-r--r-- | R/estpoly.R | 3 | ||||
| -rw-r--r-- | man/estARX.Rd | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 4902a43..64cdb3e 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -55,6 +55,7 @@ plot.estPoly <- function(model,newdata=NULL){ #' \code{residuals} \tab the residuals \cr #' \code{call} \tab the matched call \cr #' \code{time} \tab the time of the data used \cr +#' \code{input} \tab the input data used #' } #' #' @@ -97,7 +98,7 @@ estARX <- function(data,order=c(0,1,0)){ est <- list(coefficients = model,vcov = vcov, sigma = sqrt(sigma2), df = df,fitted.values=(X%*%coef)[1:N,], residuals=(Y-X%*%coef)[1:N,],call=match.call(), - time=time) + time=time,input=u) class(est) <- c("estARX","estPoly") est } diff --git a/man/estARX.Rd b/man/estARX.Rd index 11858f8..34c0795 100644 --- a/man/estARX.Rd +++ b/man/estARX.Rd @@ -27,6 +27,7 @@ the following elements: \code{residuals} \tab the residuals \cr \code{call} \tab the matched call \cr \code{time} \tab the time of the data used \cr + \code{input} \tab the input data used } } \description{ |