![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 12 Регистрация: 3.02.2018 Пользователь №: 30923 ![]() |
Подскажите, как мне сосчитать лямбду Уилкса, функцию групповых центройдов, и также канонические коэффициенты дискриминантной функции.
Возьмём простой Пример library(MASS) mydat=iris #split sample index <- sample(1:nrow(mydat),round(0.70*nrow(mydat))) train <- mydat[index,] test <- mydat[-index,] str(train) z <- lda(Species ~ .,data = train) как мне высчитать эти показатели, как в экселе в R?
Прикрепленные файлы
|
|
![]() |
![]() |
![]() |
![]()
Сообщение
#2
|
|
Группа: Пользователи Сообщений: 902 Регистрация: 23.08.2010 Пользователь №: 22694 ![]() |
1. Лямбда Уилкса:
> library(rrcov) > Wilks.test(Species~.,train) Для всего остального достаточно просто подать команду: > z А познавательная команда str(z) покажет структуру этого объекта: сразу становится видно, до каких полей необходимо "достучаться" с помощью "$". Сообщение отредактировал 100$ - 12.04.2019 - 23:27 |
|
![]() |
![]() |
![]() ![]() |