楼主: meijinrong
2088 5

[问答] R语言广义线性模型预测值 [推广有奖]

  • 0关注
  • 0粉丝

高中生

50%

还不是VIP/贵宾

-

威望
0
论坛币
0 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
152 点
帖子
28
精华
0
在线时间
1 小时
注册时间
2020-3-22
最后登录
2020-7-26

楼主
meijinrong 发表于 2020-5-8 19:38:59 来自手机 |只看作者 |坛友微信交流群|倒序 |AI写论文
相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

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

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
已知模型是poisson线性模型,自变量为class 和sex,给定一对class和sex的值,如何用predict函数预测因变量的值?原来的数据里有10个值。
1588937943415985.png 1588937946882707.png
二维码

扫码加我 拉你入群

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

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

关键词:广义线性模型 线性模型 模型预测 R语言 预测值

沙发
bwchen 学生认证  发表于 2020-5-9 04:08:57 |只看作者 |坛友微信交流群
你返回的值是in sample predictions
用下面的代码应该可以得到你想要的:
predict.glm(model2, newdata = newdata, type = 'response')

使用道具

藤椅
meijinrong 发表于 2020-5-9 13:00:56 来自手机 |只看作者 |坛友微信交流群
bwchen 发表于 2020-5-9 04:08
你返回的值是in sample predictions
用下面的代码应该可以得到你想要的:
predict.glm(model2, newdata = ...
结果还是一样的
1589000462396489.png

使用道具

板凳
bwchen 学生认证  发表于 2020-5-9 16:51:28 |只看作者 |坛友微信交流群
meijinrong 发表于 2020-5-9 13:00
结果还是一样的
把你的数据和整个有关代码发上来

使用道具

报纸
meijinrong 发表于 2020-5-9 19:07:23 |只看作者 |坛友微信交流群
bwchen 发表于 2020-5-9 16:51
把你的数据和整个有关代码发上来
class.code <- as.factor(class.code)
sex.code <- as.factor(sex.code)
model0<-glm(n.policies ~ 1, family= poisson(),data = policies_data)
model1<-glm(n.policies ~ class.code, family= poisson(),data = policies_data)
anova(model0, model1, test = "Chisq")
summary(model1)
confint(model1, level = 0.95)
model2<-glm(n.policies ~ class.code+sex.code, family= poisson(),data = policies_data)
summary(model2)
confint(model2, level = 0.95)
anova(model1, model2, test = "Chisq")
newdata <- data.frame(c(sex.code=1,class.code = 2))
predict.glm(model2, newdata=newdata, type = "response")


微信图片_20200509190651.png (25.42 KB)

微信图片_20200509190651.png

policies_data.rar

210 Bytes

本附件包括:

  • policies_data.RData

使用道具

地板
龙熏风 发表于 2020-5-11 09:18:22 |只看作者 |坛友微信交流群
  1. newdata <- data.frame(sex.code = as.factor(1), class.code = as.factor(2))
  2. predict.glm(model2, newdata=newdata, type = "response")
复制代码
输出结果
1: 52.6700000000001

使用道具

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

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

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

GMT+8, 2024-11-5 16:30