Compute individual squared cosines — pca_ind

Return individual squared cosines for each principal component

Usage

pca_ind_cos2(ind_coords, weighted_col = rep(1, ncol(ind_coords)))

Arguments

ind_coords: individual coordinates
weighted_col: column weights

Examples

library(booklet)

iris[, -5] |>
  pca_standardize_norm() |>
  pca_weighted_eigen() |>
  pca_ind_coords() |>
  pca_ind_cos2() |>
  head()
#>       Dim.1      Dim.2        Dim.3        Dim.4
#> 1 0.9539975 0.04286032 0.0030335249 1.086460e-04
#> 2 0.8927725 0.09369248 0.0113475382 2.187482e-03
#> 3 0.9790410 0.02047578 0.0003422122 1.410446e-04
#> 4 0.9346682 0.06308947 0.0014732682 7.690193e-04
#> 5 0.9315095 0.06823959 0.0000403979 2.104697e-04
#> 6 0.6600989 0.33978301 0.0001114335 6.690714e-06