diff options
| -rw-r--r-- | R/nonparam.R | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/R/nonparam.R b/R/nonparam.R index db5b004..55fb4fa 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -105,11 +105,10 @@ plot.impulseest <- function(model,sd=2){ 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","")) + + ggplot2::theme_bw(14) + ylab(ifelse(uindex==1,"IR Coefficients","")) + xlab(ifelse(yindex==model$nout,"Lags","")) + theme(axis.title=element_text(size=12,color = "black",face = "plain"), - title=element_text(size=9,,color = "black",face="bold")) + + title=element_text(size=9,color = "black",face="bold")) + scale_x_continuous(expand = c(0.01,0.01)) } multiplot(plotlist=g,layout=plotseq) |