diff options
author | Suraj Yerramilli | 2015-08-22 21:11:57 +0530 |
---|---|---|
committer | Suraj Yerramilli | 2015-08-22 21:11:57 +0530 |
commit | 6690438dc5ff4a2dde1c15cf09a0a953c5b06bc3 (patch) | |
tree | e44e756c290112314371e4d66000d226c46cd29f /R/nonparam.R | |
parent | 8be3e84001ee8320bb8eb256dce2171428d74a7e (diff) | |
download | SysID-R-code-6690438dc5ff4a2dde1c15cf09a0a953c5b06bc3.tar.gz SysID-R-code-6690438dc5ff4a2dde1c15cf09a0a953c5b06bc3.tar.bz2 SysID-R-code-6690438dc5ff4a2dde1c15cf09a0a953c5b06bc3.zip |
minor changes
Diffstat (limited to 'R/nonparam.R')
-rw-r--r-- | R/nonparam.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/nonparam.R b/R/nonparam.R index 8abc3c1..8f6cc41 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -55,7 +55,7 @@ impulseest <- function(data,M=30,K=0,regul=F,lambda=1){ se <- sqrt(diag(vcov)) out <- list(coefficients=coefficients,residuals=residuals,lags=K:(M+K), - x=colnames(data$input),y=colnames(data$output),se = se) + x=inputNames(data),y=outputNames(data),se = se) class(out) <- "impulseest" return(out) } |