本帖最后由 txyw 于 2015-9-24 15:31 编辑
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分类效果二分类化,导致无法进行分类效果预测,**!
哪个大神出手瞅瞅 |
|