R/plot.sharpel1pca.R

In pcaL1: L1-Norm PCA Methods

Defines functions plot.sharpel1pca

Documented in plot.sharpel1pca

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