楼主: shanelily
14927 3

[问答] 【R】求问如何在R中做出个值预测区间和均值预测区间的图示命令！ [推广有奖]

  • 1关注
  • 0粉丝

已卖：12份资源

初中生

52%

还不是VIP/贵宾

-

0%
威望
0 级
论坛币
46 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
118 点
帖子
0
精华
0
在线时间
26 小时
注册时间
2013-3-18
最后登录
2016-12-29
楼主
shanelily 发表于 2013-9-28 16:52:46 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

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

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币
R菜鸟一枚，万望各位大神指导！！！！！
二维码

扫码加我 拉你入群

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

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

分享0
关键词：如何

相关帖子

回帖推荐

qoiqpwqr 发表于3楼  查看完整内容

本帖被以下文库推荐
沙发
shanelily 发表于 2013-9-28 20:04:39
勿沉
藤椅
qoiqpwqr 发表于 2013-9-29 01:25:37
  1. set.seed(1234)
  2. x <- rnorm(20)
  3. df <- data.frame(x = x,
  4.                  y = x + rnorm(20))

  6. plot(y ~ x, data = df)

  8. # model
  9. mod <- lm(y ~ x, data = df)

  11. # predicts + interval
  12. newx <- seq(min(df$x), max(df$x), length.out=100)
  13. preds <- predict(mod, newdata = data.frame(x=newx),
  14.                  interval = 'confidence')

  16. # plot
  17. plot(y ~ x, data = df, type = 'n')
  18. # add fill
  19. polygon(c(rev(newx), newx), c(rev(preds[ ,3]), preds[ ,2]), col = 'grey80', border = NA)
  20. # model
  21. abline(mod)
  22. # intervals
  23. lines(newx, preds[ ,3], lty = 'dashed', col = 'red')
  24. lines(newx, preds[ ,2], lty = 'dashed', col = 'red')
复制代码
Rplot.png
已有 1 人评分学术水平 热心指数 信用等级 收起 理由
playmore + 5 + 5 + 5 精彩帖子

总评分: 学术水平 + 5  热心指数 + 5  信用等级 + 5   查看全部评分

板凳
shanelily 发表于 2013-9-29 15:54:54
qoiqpwqr 发表于 2013-9-29 01:25
啊啊啊！！！！跪谢！！！！
返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 我要注册

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

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

GMT+8, 2025-12-6 06:49