R/plot.ellipsesummarylist.R

In hysteresis: Tools for Modeling Rate-Dependent Hysteretic Processes and Ellipses

plot.ellipsesummarylist <- function(x,main=NULL,values=NULL,...){
  a <- x
  if (length(dim(a$models))<=1) mapply(plot.ellipsesummary,a$models,main=names(a$models),MoreArgs=list(values=values,...))
  else {
    length.values <- length(a$models[[1]]$values[,1])
    thenames <- do.call(paste,lapply(seq_len(ncol(a$Boot.Estimates)-length.values), function(i) a$Boot.Estimates[,i]))
    mapply(plot.ellipsesummary,a$models,main=thenames,MoreArgs=list(values=values,...))
  }
  if (!is.null(main)) mtext(paste(main),side=3,outer=T)
}