diff options
| author | Suraj Yerramilli | 2015-06-06 00:56:01 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-06 00:56:01 +0530 |
| commit | b51c0f543934e4bff2788409af3a13584b710f1c (patch) | |
| tree | 42346526f6fe1019fc1065416f514473c48154a6 /R | |
| parent | 501952e24edf20f77292134d8b5a30b8787f3134 (diff) | |
| download | SysID-R-code-b51c0f543934e4bff2788409af3a13584b710f1c.tar.gz SysID-R-code-b51c0f543934e4bff2788409af3a13584b710f1c.tar.bz2 SysID-R-code-b51c0f543934e4bff2788409af3a13584b710f1c.zip | |
Added class estPoly
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index b3e31c3..b0e127b 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -25,7 +25,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()) - class(est) <- "estARX" + class(est) <- c("estARX","estPoly") est } |