请选择 进入手机版 | 继续访问电脑版
楼主: 雪凤夏洛
1341 0

[程序分享] 人工神经网络ANN预测 [推广有奖]

  • 0关注
  • 2粉丝

硕士生

48%

还不是VIP/贵宾

-

威望
0
论坛币
183 个
通用积分
43.4895
学术水平
6 点
热心指数
12 点
信用等级
6 点
经验
2842 点
帖子
85
精华
0
在线时间
145 小时
注册时间
2017-6-26
最后登录
2020-8-13

雪凤夏洛 发表于 2019-4-19 15:16:31 |显示全部楼层 |坛友微信交流群

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
有大佬po一po关于ANN预测的代码,最好是多层隐藏层的。
抛砖引玉,搞个nnet的。
  1. install.packages("nnet")
  2. library(nnet)
  3. set.seed(500)#得到股固定结果
  4. pr_ann=matrix(ncol=1,nrow=17,0)#预测结果存入矩阵
  5. ED<-HK_data [1:27,2]#输出
  6. fit_ann = nnet(ED~., data = HK_data [1:27,-c(1,2)],size=15,linout=T)#因变量
  7. fitted_ann<-as.numeric(fitted(fit_ann))#训练模型
  8. mape_train_ann=mean(abs((fitted_ann- ED)/ ED))
  9. rmse_train_ann=rmse(as.data.frame(ED),as.data.frame(fitted_ann))

  10. pr_ann= predict(fit_ann, newdata = HK_data[28:nrow(X),-c(1,2)])#测试模型
  11. mape_ann=mean(abs((pr_ann-y)/y))
  12. rmse_ann=rmse(as.data.frame(y),as.data.frame(pr_ann))
复制代码
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:抛砖引玉 预测结果

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-28 17:07