数据挖掘算法-BP神经网络

BP神经网络R实现

##设置工作空间

#先用setwd设置工作空间，如D盘，并将相关数据拷贝到该目录下
setwd("D:/BP")
#读入数据
Data=read.csv("D:/BP/data")
#数据命名
library(nnet)
colnames(Data)<-c("x1","x2","x3","y")
###最终模型
model1=nnet(y~.,data=Data,size=6,decay=5e-4,maxit=1000)  


pred=predict(model1,Data[,1:3],type="class")
(P=sum(as.numeric(pred==Data$y))/nrow(Data))
table(Data$y,pred)
prop.table(table(Data$y,pred),1)