R/plot.pcalp.R

In pcaL1: L1-Norm PCA Methods

Defines functions plot.pcalp

Documented in plot.pcalp

plot.pcalp <- function(x, ...) {
  if(!inherits(x,"pcalp"))
    stop("Not an pcalp 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