R/getPCA.R

In debruine/frlgmm: Face Research Lab Geometric Morphometric Functions

#' Get PCA Data
#'
#' @param data Data structure from geomorph or created by readTem()
#' @return A table summarizing the percent variation explained by each PC and the set of PC scores
#' @examples
#' faces$pca <- getPCA(faces)
#' @export

getPCA <- function(data) {
  message("Running PCA");
  coords <- getCoords(data)
  pca <- prcomp(geomorph::two.d.array(coords), center = TRUE, scale. = FALSE)
  return(pca)
}