R/plot.mlcm.R

Defines functions `points.mlcm` `lines.mlcm` `plot.mlcm`

`plot.mlcm` <-
function(x, standard.scale = FALSE, transpose = FALSE, SD.scale = FALSE, ...){
   par(ask = FALSE)
   m <- if (transpose) t(x$pscale) else x$pscale
   if (standard.scale){
   	dm <- dim(m)
   	mx <- max(m[dm[1], ])
   	matplot(m/mx, ...)
   	} else
   	matplot((if (SD.scale) 2 else 1) * m, ...)
}

`lines.mlcm` <- function(x, standard.scale = FALSE,
	transpose = FALSE, SD.scale = FALSE, ...){
	m <- if (transpose) t(x$pscale) else x$pscale
   if (standard.scale){
   	dm <- dim(m)
   	mx <- max(m[dm[1], ])
   	matlines(m/mx, ...)
   	} else
   	matlines((if (SD.scale) 2 else 1) * m, ...)		
}

`points.mlcm` <- function(x, standard.scale = FALSE,
	transpose = FALSE, SD.scale = FALSE, ...){
	m <- if (transpose) t(x$pscale) else x$pscale
   if (standard.scale){
   	dm <- dim(m)
   	mx <- max(m[dm[1], ])
   	matpoints(m/mx, ...)
   	} else
   	matpoints((if (SD.scale) 2 else 1) * m, ...)		
}

Try the MLCM package in your browser

Any scripts or data that you put into this service are public.

MLCM documentation built on March 18, 2022, 7:31 p.m.