以iris
数据集为例,我理解要执行 LDA,你可以使用这个:
library(MASS)
iris[1:4] <- scale(iris[1:4])
sample <- sample(c(TRUE, FALSE), nrow(iris), replace=TRUE, prob=c(0.7,0.3))
train <- iris[sample, ]
test <- iris[!sample, ]
model <- lda(Species~., data=train)
#view model output
model
它将返回组均值、线性判别系数和迹比例。
但是,有没有办法将线性判别系数提取到数据框中?