library(neuralnet)data(infert,package="datasets")
net.infert <-neuralnet(case~parity+induced+spontaneous,infert,err.fct="ce",linear.output=FALSE, likelihood=TRUE)
pre<-compute(net.infert,
infert[,c(3,4,6)], rep = 1)
result_pre<-pre$net.result
result_pre
[size=18.6666660308838px]table(result_pre,infert$case)#预测分类效果
[size=18.6666660308838px]现在的问题来了，我处理的不能使result_pre分类效果二分类化，导致无法进行分类效果预测，跪求！
扫码加好友，拉您进群
全部版块
我的主页
收藏
