- modelData0 <- model.matrix(~diabetes,PIDdata)
- PIDdata2<-data.frame(PIDdata[,-9],diabetes=modelData0[,2])
- ntrain<-sample(1:n,0.7*n)
- PIDdata.train<-PIDdata2[ntrain,]
- PIDdata.test<-PIDdata2[-ntrain,]
- glmresult<-glm(
- diabetes~pregnant+glucose+pressure+triceps+insulin+mass+pedigree+age,
- data=PIDdata.train,
- family='binomial'
- )
- summary(glmresult)
- glmpredict<-predict(PIDdata.test$diabetes,PIDdata.test,type="response")
原始数据如下
把最后一列因子变量设置虚拟变量,变成数值型变量
最后还是报错,是哪里有问题?


雷达卡





。十分感谢。
京公网安备 11010802022788号







