diff options
| author | Suraj Yerramilli | 2016-02-24 15:12:50 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-24 15:12:50 +0530 |
| commit | 90f37efac810fbdde5166b9bd1bdbff1b251c8a1 (patch) | |
| tree | c52a7106ae3215b727f0dd44685ea585f62ec361 /R | |
| parent | 6737b33bb58a7b864326d0597aa683e8b1eb70a8 (diff) | |
| download | SysID-R-code-90f37efac810fbdde5166b9bd1bdbff1b251c8a1.tar.gz SysID-R-code-90f37efac810fbdde5166b9bd1bdbff1b251c8a1.tar.bz2 SysID-R-code-90f37efac810fbdde5166b9bd1bdbff1b251c8a1.zip | |
added shading
Diffstat (limited to 'R')
| -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) } |