summaryrefslogtreecommitdiff
path: root/R/nonparam.R
diff options
context:
space:
mode:
authorSuraj Yerramilli2015-08-22 21:11:57 +0530
committerSuraj Yerramilli2015-08-22 21:11:57 +0530
commit6690438dc5ff4a2dde1c15cf09a0a953c5b06bc3 (patch)
treee44e756c290112314371e4d66000d226c46cd29f /R/nonparam.R
parent8be3e84001ee8320bb8eb256dce2171428d74a7e (diff)
downloadSysID-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.R2
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)
}