 Помогите с дискриминантным анализом в R |
Здравствуйте, гость ( Вход | Регистрация )
 12.04.2019 - 16:25
Сообщение
#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?
Прикрепленные файлы
|
 |
 
|
 |
|
 |
Ответов
|
17.04.2019 - 14:33
Сообщение
#2
|
|
|
Группа: Пользователи Сообщений: 12 Регистрация: 3.02.2018 Пользователь №: 30923 |
100$, а можете подсказать как интерпретировать эту строчку априорных вероятностей.
Prior probabilities of groups: setosa versicolor virginica 0.3619048 0.3333333 0.3047619 что значит setosa 0,36 А также как мне интерпретировать постериорные вероятности? p=predict(z,test) posterior setosa versicolor virginica 22 1.000000e+00 5.966703e-20 5.555393e-41 23 1.000000e+00 1.638449e-24 5.197733e-48 25 1.000000e+00 4.449308e-16 1.260953e-36 Сообщение отредактировал alina.K - 17.04.2019 - 14:42 |
|
|
|
|
|
Сообщений в этой теме
alina.K Помогите с дискриминантным анализом в R 12.04.2019 - 16:25
100$ 1. Лямбда Уилкса:
> library(rrcov)
> Wilks.t... 12.04.2019 - 23:27 alina.K 100$, благодарствую)
но что - то в
>z не ... 13.04.2019 - 13:08
100$ Цитата(alina.K @ 13.04.2019 - 13:08)... 13.04.2019 - 14:44 100$ Цитата(alina.K @ 17.04.2019 - 14:33)... 17.04.2019 - 20:50 alina.K Всё, вы очень помогли. А почему МАНОВА требует что... 18.04.2019 - 12:23 100$ Цитата(alina.K @ 18.04.2019 - 12:23)... 18.04.2019 - 20:47 |