R/plot.l1pcastar.R

In pcaL1: L1-Norm PCA Methods

Defines functions plot.l1pcastar

Documented in plot.l1pcastar

plot.l1pcastar <- function(x, ...) {
  if(!inherits(x,"l1pcastar"))
    stop("Not an l1pcastar object")
  
  if(ncol(x$scores) == 1)
    stop("Need scores in at least two dimensions")

  plot(x$scores[,1:2])
}

Try the pcaL1 package in your browser