R软件实现灰色预测GM(1,1)模型 - 经管之家

› 论坛 › 提问悬赏求职新闻读书功能一区 › 经管文库（原现金交易版）

R软件实现灰色预测GM(1,1)模型

18577

66

收藏 2017-10-04

灰色预测，即GM模型，是邓聚龙先生在上世纪80年代发明的一种预测方法，突出优点是适用于小样本情况。
因为在小样本条件下，复杂、高端的统计方法往往派不上用场。
但是，GM模型没有被一般的统计软件收录，如SPSS、EViews等等，无法用菜单操作，这给广大使用者带来了一定的困难。
本贴提供了用R软件进行GM(1,1)模型的做法，简单方便，0基础的也容易上手。
这是我三年前给河北省统计系统建模大赛培训时的课件，首次公开。
课件样本：

GM(1,1)1.jpg

GM(1,1)2.jpg

GM(1,1)3.jpg

GM(1,1)课件:

GM(1,1)灰色预测.pptx
大小:(8.93 MB)

只需: RMB 9元马上下载

案例文件：

GM(1,1)模型在煤炭需求预测中的应用.pdf
大小:(286.29 KB)

GM(1,1)的R脚本文件：

GM11.rar
大小:(1.58 KB)

本附件包括：

GM11.R

二维码

扫码加我拉你入群

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

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

全部回复

2017-10-4 11:26:33

谢谢楼主分享！

二维码

扫码加我拉你入群

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

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

2017-10-4 12:04:42

朋友们，代码已经更新，在这里，修正了原程序的一个小bug

GM11.zip
大小:(1.65 KB)

本附件包括：

GM11.R

二维码

扫码加我拉你入群

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

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

2017-10-20 08:17:47

多谢“307662276”朋友支持，问好！

二维码

扫码加我拉你入群

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

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

谁能帅过陈小良1

2017-11-17 16:00:48

耕耘使者发表于 2017-10-4 11:10
灰色预测，即GM模型，是邓聚龙先生在上世纪80年代发明的一种预测方法，突出优点是适用于小样本情况。
因为 ...

您好，感谢楼主分享，想知道怎么获取资源呢？我点击链接，显示的是本板块暂不支持直接下载，谢谢！

二维码

扫码加我拉你入群

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

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

2017-11-17 17:38:41

谁能帅过陈小良1 发表于 2017-11-17 16:00
您好，感谢楼主分享，想知道怎么获取资源呢？我点击链接，显示的是本板块暂不支持直接下载，谢谢！

人大论坛各位朋友好，程序包已经更新，修正了一个小bug,新包见3楼回复中的链接。
如果看不到，请把下面部分代码代替原来的相关部分：
if(p > 0.95){
cat("小误差概率p>0.95, GM(1,1)预测精度等级为：好",'\n','\n')
}else{
if(p>0.8){
cat("小误差概率p属于(0.8,0.95], GM(1,1)模型预测精度等级为：合格",'\n','\n')
}else{
if(p>0.7){
cat("小误差概率p属于(0.7,0.8], GM(1,1)模型预测精度等级为：勉强合格",'\n','\n')
}else{
cat("小误差概率p<=0.7, GM(1,1)模型预测精度等级为：不合格",'\n','\n')
}
更改说明：上面的两个红色的p是更新的，原代码中是cv.用R软件打开后，手动更改也很方便。

二维码

扫码加我拉你入群

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

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

点击查看更多内容…

2017-11-23 18:00:36

人大论坛各位朋友好，程序包已经更新，修正了一个小bug,新包见3楼回复中的链接。
如果看不到，请把下面部分代码代替原来的相关部分：
if(p > 0.95){
cat("小误差概率p>0.95, GM(1,1)预测精度等级为：好",'\n','\n')
}else{
if(p>0.8){
cat("小误差概率p属于(0.8,0.95], GM(1,1)模型预测精度等级为：合格",'\n','\n')
}else{
if(p>0.7){
cat("小误差概率p属于(0.7,0.8], GM(1,1)模型预测精度等级为：勉强合格",'\n','\n')
}else{
cat("小误差概率p<=0.7, GM(1,1)模型预测精度等级为：不合格",'\n','\n')
}
更改说明：上面的两个红色的p是更新的，原代码中是cv.用R软件打开后，手动更改也很方便。

二维码

扫码加我拉你入群

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

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

2017-12-16 10:49:00

人大论坛各位朋友好，程序包已经更新，修正了一个小bug,新包见3楼回复中的链接。
如果看不到，请把下面部分代码代替原来的相关部分：
if(p > 0.95){
cat("小误差概率p>0.95, GM(1,1)预测精度等级为：好",'\n','\n')
}else{
if(p>0.8){
cat("小误差概率p属于(0.8,0.95], GM(1,1)模型预测精度等级为：合格",'\n','\n')
}else{
if(p>0.7){
cat("小误差概率p属于(0.7,0.8], GM(1,1)模型预测精度等级为：勉强合格",'\n','\n')
}else{
cat("小误差概率p<=0.7, GM(1,1)模型预测精度等级为：不合格",'\n','\n')
}
更改说明：上面的两个红色的p是更新的，原代码中是cv.用R软件打开后，手动更改也很方便。

二维码

扫码加我拉你入群

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

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

2018-2-6 19:11:04

感谢“伏立特8”朋友支持，新春快乐！

二维码

扫码加我拉你入群

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

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

2018-2-11 20:18:20

感谢“欧拉的宝宝”朋友支持，春节快乐！

二维码

扫码加我拉你入群

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

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

2018-3-10 08:18:05

感谢“caper1213”朋友支持，问好！

二维码

扫码加我拉你入群

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

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

2018-3-20 10:02:43

所以这是用什么软件做的？

二维码

扫码加我拉你入群

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

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

2018-3-20 11:55:09

yijia01 发表于 2018-3-20 10:02
所以这是用什么软件做的？

R软件做的，。

二维码

扫码加我拉你入群

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

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

2018-3-20 11:55:15

yijia01 发表于 2018-3-20 10:02
所以这是用什么软件做的？

R软件做的，。

二维码

扫码加我拉你入群

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

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

2018-3-20 11:57:10

yijia01 发表于 2018-3-20 10:02
所以这是用什么软件做的？

多谢朋友支持，问好！

二维码

扫码加我拉你入群

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

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

2018-3-24 08:00:17

感谢“110tingyu110”朋友支持，问好。

二维码

扫码加我拉你入群

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

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

2018-4-11 13:27:57

小白，我下了R脚本，不会跑啊

二维码

扫码加我拉你入群

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

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

2018-4-12 08:02:45

Jackonwang 发表于 2018-4-11 13:27
小白，我下了R脚本，不会跑啊

为什么不下载课件？里面有详细的操作步骤。

二维码

扫码加我拉你入群

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

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

2018-7-7 17:05:35

感谢“mamba13”支持，祝朋友研究顺利。

二维码

扫码加我拉你入群

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

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

2018-7-7 17:14:45

耕耘使者发表于 2018-7-7 17:05
感谢“mamba13”支持，祝朋友研究顺利。

楼主，您好！请问工作目录是什么意思？小白一个

二维码

扫码加我拉你入群

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

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

2018-7-7 18:16:55

Error in file(filename, "r", encoding = encoding) :
cannot open the connection
In addition: Warning message:
In file(filename, "r", encoding = encoding) :
cannot open file 'GM11.R': No such file or directory
请问这是什么意思？

二维码

扫码加我拉你入群

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

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

2018-7-27 12:40:53

感谢“cassielyME”朋友支持，问好！

二维码

扫码加我拉你入群

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

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

2018-8-10 12:15:32

感谢“tracy白”支持，问好。

二维码

扫码加我拉你入群

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

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

2018-8-11 20:57:12

感谢“山抹微云ACE”朋友支持，问好。

二维码

扫码加我拉你入群

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

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

2018-8-21 08:07:08

mamba13 发表于 2018-7-7 18:16
Error in file(filename, "r", encoding = encoding) :
cannot open the connection
In addition: War ...

找不到文件，请按照步骤操作。

二维码

扫码加我拉你入群

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

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

2018-9-20 18:36:18

感谢“Zohar_lv”朋友支持，问好。

二维码

扫码加我拉你入群

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

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

2018-10-25 07:40:37

感谢“shikongfenxi”朋友支持，祝研究顺利！

二维码

扫码加我拉你入群

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

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

2018-10-30 11:17:44

感谢“robin_zheng”朋友支持，祝好！

二维码

扫码加我拉你入群

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

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

2018-12-13 16:50:14

谢谢“爱学习的大高”支持，有问题欢迎交流

二维码

扫码加我拉你入群

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

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

2018-12-26 16:58:31

感谢“nmyywtj”支持，问好。

二维码

扫码加我拉你入群

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

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

首页上一页下一页跳至第页

相关推荐

栏目导航

热门文章

推荐文章

扫码加好友，拉您进群

各岗位、行业、专业交流群