From 2bf1b001bf28c1203ee9988dd97473e2cc9ad602 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Tue, 9 Jun 2015 13:44:11 +0530
Subject: Minor change

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

(limited to 'R/nonparam.R')

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")
-- 
cgit