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)
 }