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 table(result_pre,infert$case)#预测分类效果 现在的问题来了，我处理的不能使result_pre分类效果二分类化，导致无法进行分类效果预测，**！ 哪个大神出手瞅瞅