R/plot.l1pcahp.R

In pcaL1: L1-Norm PCA Methods

Defines functions plot.l1pcahp

Documented in plot.l1pcahp

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