Как мне рассчитать индекс / оценку из анализа основных компонентов?
Вот воспроизводимый пример
set.seed(1)
dat <- data.frame(
Diet = sample(1:2),
Outcome1 = sample(1:10),
Outcome2 = sample(11:20),
Outcome3 = sample(21:30),
Response1 = sample(31:40),
Response2 = sample(41:50),
Response3 = sample(51:60)
)
ir.pca <- prcomp(dat[,3:5], center = TRUE, scale. = TRUE)
summary(ir.pca)
loadings <- ir.pca$rotation
scores <- ir.pca$x
correlations <- t(loadings)*ir.pca$sdev
Это генерирует три основных компонента.Могу ли я использовать их для вычисления оценки или индекса под названием «Индекс ответа» для каждой строки в приведенных выше данных?