diff options
| -rw-r--r-- | R/idframe.R | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/R/idframe.R b/R/idframe.R index a5a3b6e..2e871e5 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -59,11 +59,11 @@ plot.idframe <- function(object,...){ for(i in seq(m)){ for(j in seq(p)){ - par(mfrow=c(2,1)) - plot(.index(object),object$output[,p],xlab=object$type, - ylab=colnames(object$output)[p],type="l",...) - plot(.index(object),object$input[,m],xlab=object$type, - ylab=colnames(object$input)[m],type="l",...) + par(mfrow=c(2,1),mar=c(3,4,3,2)) + plot(.index(object),object$output[,j],xlab=object$type, + ylab=colnames(object$output)[j],type="l",...) + plot(.index(object),object$input[,i],xlab=object$type, + ylab=colnames(object$input)[i],type="l",...) } } } else { @@ -86,4 +86,6 @@ plot.idframe <- function(object,...){ # summary method for idframe object summary.idframe <- function(object,...){ -}
\ No newline at end of file +} + +# Assigning names to the output variables |