Compute individual squared cosines — pca_ind

Return indivdual 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(FactoMineR2)

iris[, -5] |>
  standardize_norm() |>
  get_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