diff options
| -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{ |