diff options
| author | Suraj Yerramilli | 2015-01-27 12:11:35 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-01-27 12:11:35 +0530 |
| commit | f40236ceda986ee6b60267c7349b4dee3562f88d (patch) | |
| tree | eff77091f15f60fc9cf0677a83e3632261c33c51 | |
| parent | 74d70bf3774579ae1e9ff9bd9515b1631baa6685 (diff) | |
| download | SysID-R-code-f40236ceda986ee6b60267c7349b4dee3562f88d.tar.gz SysID-R-code-f40236ceda986ee6b60267c7349b4dee3562f88d.tar.bz2 SysID-R-code-f40236ceda986ee6b60267c7349b4dee3562f88d.zip | |
corrected the plot function and adjusted the margins
| -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 |