| 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分类效果二分类化,导致无法进行分类效果预测,**! 哪个大神出手瞅瞅 |


雷达卡




京公网安备 11010802022788号







