Рассчитать центр тяжести группы, используя R

Question

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)
z

Как рассчитать центроид группы, чтобы результат был

IRISTYPE    Function    
          1       2
set -   7,608   ,215
vers    1,825   -,728
virg    5,783   ,513

Так что мне нужно получить эту функцию групповых центроидов. Как это сделать?

Answer 1

это то, что вы ищете?

install.packages("candisc")
library(candisc) 

iris.mod <- lm(cbind(Petal.Length, Sepal.Length, Petal.Width, Sepal.Width) ~ Species, data=iris)

iris.can <- candisc(iris.mod, term="Species")

iris.can$means

если вы введете iris.can $, значит, он покажет эти значения