diff options
| -rw-r--r-- | R/idframe.R | 2 | ||||
| -rw-r--r-- | R/nonparam.R | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/R/idframe.R b/R/idframe.R index 1f04062..3163292 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -201,7 +201,7 @@ plot.idfrd <- function(x,col="steelblue",lwd=1){ theme_bw(14) + ylab("") + ggtitle(subtitle) + xlab(ifelse(yindex==nout,"Frequency","")) + theme(axis.title.x=element_text(color = "black",face = "plain"), - title=element_text(size=9,color = "gray",face="bold")) + + title=element_text(size=12,color = "black",face="bold")) + geom_vline(xintercept=max(x$freq),size=1) } diff --git a/R/nonparam.R b/R/nonparam.R index 077e85f..0527cdc 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -108,7 +108,7 @@ plot.impulseest <- function(model,sig=2){ 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 = "gray",face="bold")) + title=element_text(size=12,,color = "black",face="bold")) } multiplot(plotlist=g,layout=plotseq) } |