Compute row squared cosines

Return row squared cosines for each correspondence component

Usage

ca_row_cos2(row_coords, X)

ca_row_sup_cos2(row_coords, X_sup, X)

Arguments

row_coords

row coordinates

X

Active standardized matrix

X_sup

Supplementary standardized matrix

Examples

library(booklet)

X_scaled <- mtcars[, c(2, 8:11)] |>
  ca_standardize()

X_scaled |>
  ca_weighted_eigen() |>
  ca_row_coords() |>
  ca_row_cos2(X_scaled) |>
  head()
#>                         Dim.1        Dim.2       Dim.3       Dim.4        Dim.5
#> Mazda RX4         0.005979667 9.709803e-01 0.018859594 0.004180407 6.521791e-31
#> Mazda RX4 Wag     0.005979667 9.709803e-01 0.018859594 0.004180407 1.513885e-31
#> Datsun 710        0.948287059 7.024187e-08 0.045112111 0.006600760 3.576136e-34
#> Hornet 4 Drive    0.110561339 8.763905e-01 0.000794192 0.012253952 2.157363e-33
#> Hornet Sportabout 0.548407031 2.063303e-01 0.241574790 0.003687908 8.840535e-33
#> Valiant           0.110561339 8.763905e-01 0.000794192 0.012253952 3.263571e-32