powered by
impulseest
impulseest(x, M = 30, K = NULL, regul = F, lambda = 1)
idframe
30
FALSE
regul=TRUE
1
step
uk <- rnorm(1000,1) yk <- filter (uk,c(0.9,-0.4),method="recursive") + rnorm(1000,1) data <- idframe(output=data.frame(yk),input=data.frame(uk)) fit <- impulseest(data) impulseplot(fit)
Run the code above in your browser using DataLab