R/plot.l1pca.R

In pcaL1: L1-Norm PCA Methods

Defines functions plot.l1pca

Documented in plot.l1pca

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