R/calc_pca_var.R

Defines functions calc_pca_var

calc_pca_var = function(pca_obj){
  eigs = (pca_obj$sdev)^2
  rbind(
    SD = sqrt(eigs),
    Proportion = eigs/sum(eigs),
    Cumulative = cumsum(eigs)/sum(eigs)) 
}
shudengnyc/shutool documentation built on Jan. 9, 2023, 10:40 p.m.