From 55b5704c4042761d1efc6f129b3068176fd50b04 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Wed, 24 Feb 2016 14:01:04 +0530
Subject: adjusting limits in impulse response plot

---
 R/nonparam.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'R/nonparam.R')

diff --git a/R/nonparam.R b/R/nonparam.R
index 932b97d..487dbcd 100644
--- a/R/nonparam.R
+++ b/R/nonparam.R
@@ -94,7 +94,8 @@ plot.impulseest <- function(model,sig=0.975){
   impulseplot <- function(model,sig){
     lim <- model$se*qnorm(sig)
     
-    ylim <- c(min(coef(model)),max(coef(model)))
+    max <- max(abs(coef(model)))
+    ylim <- c(-max,max)
     
     title <- paste("Impulse Response \n From",model$x,"to",model$y)
     plot(model$lags,coef(model),type="h",xlab="Lag",ylab= "IR Coefficient",
-- 
cgit