diff options
| -rw-r--r-- | R/nonparam.R | 5 |
1 files 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) } |