R/get_screeplot.R

In thierrycnam/nbafuns: Functions for nba PCA analysis

#' get scree plot of PCA result
#'
#' @param pca_res pca_res
#' @param choice choice
#'
#' @return
#' @export
#' @import FactoMineR
#'
#' @examples
get_screeplot <- function(pca_res, choice="variance") {
  fviz_eig(pca_res, addlabels = TRUE, choice=choice)
}