diff options
| -rw-r--r-- | R/idframe.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/idframe.R b/R/idframe.R index 94886af..2c85a42 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -79,7 +79,8 @@ idframe <- function(output=NULL,input=NULL, #' plot(distill,col="blue") #' #' @export -plot.idframe <- function(object,...){ +plot.idframe <- function(object,par=list(mar=c(3,4,3,2)), + col="steelblue",...){ if(object$type=="frequency"){ p <- dim(object$output)[2];m <- dim(object$input)[2] @@ -114,8 +115,7 @@ plot.idframe <- function(object,...){ } datats <- ts(data,start=object$t.start,end=object$t.end, frequency=floor(1/object$Ts)) - par(mar=c(3,4,3,2)) - tfplot(datats,...) + tfplot(datats,par=par,col=col,...) } } |