diff options
| author | Suraj Yerramilli | 2016-05-17 12:19:40 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-05-17 12:19:40 +0530 |
| commit | df2a1019a962134937d19ac90c62a04bd760c530 (patch) | |
| tree | 6ca937108add4567516ec286a62bf265842e5737 | |
| parent | 25ffd8e93cd9da5bb79800bfb112d9bab14944b6 (diff) | |
| download | SysID-R-code-df2a1019a962134937d19ac90c62a04bd760c530.tar.gz SysID-R-code-df2a1019a962134937d19ac90c62a04bd760c530.tar.bz2 SysID-R-code-df2a1019a962134937d19ac90c62a04bd760c530.zip | |
minor syntax corrections
| -rw-r--r-- | R/idframe.R | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/R/idframe.R b/R/idframe.R index 59a57eb..f38b94e 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -232,7 +232,6 @@ plot.idfrd <- function(x,col="steelblue",lwd=1){ # 3 will go all the way across the bottom. # multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL) { - library(grid) # Make a list from the ... arguments and plotlist plots <- c(list(...), plotlist) @@ -253,8 +252,8 @@ multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL) { } else { # Set up the page - grid.newpage() - pushViewport(viewport(layout = grid.layout(nrow(layout), ncol(layout)))) + grid::grid.newpage() + grid::pushViewport(viewport(layout = grid.layout(nrow(layout), ncol(layout)))) # Make each plot, in the correct location for (i in 1:numPlots) { |