diff options
| author | Suraj Yerramilli | 2016-05-05 12:33:18 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-05-05 12:33:18 +0530 |
| commit | 832ca9dfeb0c187891e2caf34efb3bc49e5838e2 (patch) | |
| tree | 1ed24f5500769eb3dd2d24c99b11b7b62c840be8 | |
| parent | e5e7c36141a67c7b4f721e28c164d8eb85d4cba7 (diff) | |
| download | SysID-R-code-832ca9dfeb0c187891e2caf34efb3bc49e5838e2.tar.gz SysID-R-code-832ca9dfeb0c187891e2caf34efb3bc49e5838e2.tar.bz2 SysID-R-code-832ca9dfeb0c187891e2caf34efb3bc49e5838e2.zip | |
plot title changes
| -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) } |