在做二元判别分析出现报错
library(mlr3)
library(tidyverse)
library(mlr3learners)
library(HDclassif)
library(mlr3verse)
see<- read.table("Data1.csv",sep=",",header=T)
live <- see$live
see <- seer[1:16]
see <- mutate_if(see,is_integer,as.numeric)
see <- data.frame(scale(see))
see$live <- live
see$live <- as.factor(see$live)
spamTask <- as_task_classif(see,target = "live")
Qda_learn <- lrn("classif.qda",predict_type = "prob")#构建qda学习器
QdaModel = Qda_learn$train(spamTask)#训练qda模型
QdaModel$model
resampling <- rsmp("cv")#默认为重复一次的10折交叉验证
qda_r = resample(spamTask, Qda_learn, resampling, store_models = TRUE)#执行交叉验证