diff options
| -rw-r--r-- | R/impulse.R | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/R/impulse.R b/R/impulse.R index fccce3d..6980725 100644 --- a/R/impulse.R +++ b/R/impulse.R @@ -52,5 +52,9 @@ plot.impulseest <- function(model){ #' @seealso \code{\link{impulseest}} #' @export 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, + main = title) + abline(h=0) } |