neuralnet程序包二分类神经网络预测分类

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分类效果二分类化，导致无法进行分类效果预测，跪求！