##############鸢尾花神经网络识别####################
#随机抽取80%样本作为训练样本
library(nnet)
iris
trIn<-c(sample(1:50,40),sample(51:100,40),sample(101:150,40))
trainD<-iris[trIn,]#训练样本集
testD<-iris[-trIn,]#测试样本集
ide<-class.ind(iris$Species)#类别识别预处理
#构建神经网络,模型训练
#Net<-nnet(trainD[,-5],ide[trIn,],size =5,softmax = TRUE,decay=0.05)
Net<-nnet(trainD[,-5],ide[trIn,],size =5,softmax = TRUE)
#测试神经网络
Result<-predict(Net,testD[,-5],type='class')
#分类结果
OUTCOME<-table(testD$Species,Result)