R/getScoresFromPCA.R

In juscelino-izidoro/supcavs: Supervised and Unsupervised PCA Variable Selection

getScoresFromPCA <-
function(x){
  if(class(x) == 'prcomp'){
    return(x$x)
  }
  else if(class(x) == 'princomp'){
    return(x$scores)
  }
  else if(class(x) == 'pcaRes'){
    return(x@scores)
  }
  else if(class(x) == 'acp'){
    return(x$escores)
  }
stop("Erro: No scores");
}