From 90f37efac810fbdde5166b9bd1bdbff1b251c8a1 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Wed, 24 Feb 2016 15:12:50 +0530
Subject: added shading

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

diff --git a/R/nonparam.R b/R/nonparam.R
index 99907e1..3e6d2c0 100644
--- a/R/nonparam.R
+++ b/R/nonparam.R
@@ -104,10 +104,11 @@ plot.impulseest <- function(model,sig=0.975){
       geom_point(size=2) + ggtitle(paste("From",z$x,"to",z$y))+
       geom_line(aes(y=lim),linetype="dashed",colour="steelblue") +
       geom_line(aes(y=-lim),linetype="dashed",colour="steelblue") +
+      geom_ribbon(aes(ymax=lim,ymin=-lim),fill="steelblue",alpha=0.2)+
       theme_bw(14) + ylab(ifelse(uindex==1,"IR Coefficients","")) +
       xlab(ifelse(yindex==model$nout,"Lags","")) + 
-      theme(axis.title=element_text(color = "black",face = "plain"),
-            title=element_text(size=10,color = "gray",face="bold"))
+      theme(axis.title=element_text(size=12,color = "black",face = "plain"),
+            title=element_text(size=9,,color = "gray",face="bold"))
   }
   multiplot(plotlist=g,layout=plotseq)
 }
-- 
cgit