R_Studio(神经网络)BP神经网络算法预测销量的高低

 

 

　　BP神经网络　　百度百科：传送门

　　BP(back propagation)神经网络：一种按照误差逆向传播算法训练的多层前馈神经网络，是目前应用最广泛的神经网络

 

　　

 

#设置文件工作区间
setwd('D:\\dat') 
#读入数据
Gary=read.csv("sales_data.csv")[,2:5]
#数据命名
library(nnet)
colnames(Gary)<-c("x1","x2","x3","y")

###最终模型
model1=nnet(y~.,data=Gary,size=6,decay=5e-4,maxit=1000)  

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

Gary.Script