diff options
| author | Suraj Yerramilli | 2015-05-26 10:13:39 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-05-26 10:13:39 +0530 |
| commit | 099bf0c6a12ab4463519aae5ec711455534f2cdf (patch) | |
| tree | ec442dfb4c4164ebb9a759eab423b503b0441c2b | |
| parent | 4ca17a56eb623f41c84642242bec23cb3d44e663 (diff) | |
| download | SysID-R-code-099bf0c6a12ab4463519aae5ec711455534f2cdf.tar.gz SysID-R-code-099bf0c6a12ab4463519aae5ec711455534f2cdf.tar.bz2 SysID-R-code-099bf0c6a12ab4463519aae5ec711455534f2cdf.zip | |
Small Modification in step plot
| -rw-r--r-- | R/impulse.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/impulse.R b/R/impulse.R index 50bd66e..5c23887 100644 --- a/R/impulse.R +++ b/R/impulse.R @@ -73,7 +73,7 @@ plot.impulseest <- function(model,sig=0.975){ step <- function(model){ title <- paste("Step Response \n From",model$x,"to",model$y) stepResp <- cumsum(coef(model)) - plot(model$lags,stepResp,type="h",xlab="Lag",ylab= model$y, + plot(model$lags,stepResp,type="s",xlab="Lag",ylab= model$y, main = title) abline(h=0) } |