diff options
| author | Suraj Yerramilli | 2015-12-29 15:14:34 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-12-29 15:14:34 +0530 |
| commit | 8fb44152db28a92b983f313880affeaa9a8c3170 (patch) | |
| tree | 1990631f913002a67af4d861e3d304a2cae9719c | |
| parent | 6640816ea4b5eee291888d38ac34c3fc449d5d02 (diff) | |
| download | SysID-R-code-8fb44152db28a92b983f313880affeaa9a8c3170.tar.gz SysID-R-code-8fb44152db28a92b983f313880affeaa9a8c3170.tar.bz2 SysID-R-code-8fb44152db28a92b983f313880affeaa9a8c3170.zip | |
adapting to the new structure
| -rw-r--r-- | R/estpoly.R | 6 | ||||
| -rw-r--r-- | man/arx.Rd | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 42dac24..604dd71 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -132,7 +132,7 @@ residplot <- function(model,newdata=NULL){ #' #' \tabular{ll}{ #' \code{sys} \tab an \code{idpoly} object containing the -#' fitted coefficients \cr +#' fitted ARX coefficients \cr #' \code{fitted.values} \tab the predicted response \cr #' \code{residuals} \tab the residuals \cr #' \code{input} \tab the input data used \cr @@ -188,8 +188,8 @@ arx <- function(x,order=c(0,1,0)){ model <- idpoly(A = c(1,coef[1:na]),B = coef[na+1:nb], ioDelay = nk,Ts=deltat(x)) - estpoly(coefficients = model,vcov = vcov, sigma = sqrt(sigma2), - df = df,fitted.values=(X%*%coef)[1:N,], + estpoly(sys = model,stats=list(vcov = vcov, sigma = sqrt(sigma2), + df = df),fitted.values=(X%*%coef)[1:N,], residuals=(Y-X%*%coef)[1:N,],call=match.call(),input=u) } @@ -18,7 +18,7 @@ An object of class \code{estpoly} containing the following elements: \tabular{ll}{ \code{sys} \tab an \code{idpoly} object containing the - fitted coefficients \cr + fitted ARX coefficients \cr \code{fitted.values} \tab the predicted response \cr \code{residuals} \tab the residuals \cr \code{input} \tab the input data used \cr |