diff options
| author | Suraj Yerramilli | 2015-06-09 13:44:11 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-09 13:44:11 +0530 |
| commit | 2bf1b001bf28c1203ee9988dd97473e2cc9ad602 (patch) | |
| tree | 5a95083b85f2478798f81358c1f5bfca08e3757e /R | |
| parent | b15e56773e3eb9a1f5b905a9959739a4b3abaf81 (diff) | |
| download | SysID-R-code-2bf1b001bf28c1203ee9988dd97473e2cc9ad602.tar.gz SysID-R-code-2bf1b001bf28c1203ee9988dd97473e2cc9ad602.tar.bz2 SysID-R-code-2bf1b001bf28c1203ee9988dd97473e2cc9ad602.zip | |
Minor change
Diffstat (limited to '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 f7c7d20..8abc3c1 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -76,7 +76,7 @@ plot.impulseest <- function(model,sig=0.975){ ylim <- c(min(coef(model)),max(coef(model))) title <- paste("Impulse Response \n From",model$x,"to",model$y) - plot(model$lags,coef(model),type="h",xlab="Lag",ylab= model$y, + plot(model$lags,coef(model),type="h",xlab="Lag",ylab= "IR Coefficient", main = title) abline(h=0);points(x=model$lags,y=lim,col="blue",lty=2,type="l") points(x=model$lags,y=-lim,col="blue",lty=2,type="l") |