Я хотел бы использовать пакет pls для анализа plsr. Я должен признать, что я абсолютный новичок с этим пакетом и с R в целом. Поэтому моей первой целью было просто получить результаты из этого документа с данными, которые они использовали.
https://ufile.io/uad6p
Моя цель - построить рисунки 4, 5 и 6.
Я использовал этот код:
df = read.csv("Data.csv", header = TRUE, sep = ";", na ="NA")
df <- as.data.frame(df)
parameters <-(df[2:8])
results <-(df[9])
library(pls)
test <- plsr(as.matrix(results) ~ as.matrix(parameters), ncomp=2, validation = "CV", jackknife = TRUE, method="oscorespls")
scores(test)
Yscores(test)
coefficients(test)
К сожалению, похоже, что я получаю очень разные значения. Особенно для X-показателей (t [1] и t [2]), которые, по-видимому, не нормированы.
Кто-нибудь понял, если я делаю это неправильно? Также есть возможность построить VIP-график?
Большое спасибо!