楼主: kakamama
2176 1

[问答] 请问:R有没有命令可以直接进行标准化OLS的? [推广有奖]

  • 0关注
  • 0粉丝

已卖:626份资源

讲师

0%

还不是VIP/贵宾

-

威望
0
论坛币
2492 个
通用积分
4.8317
学术水平
12 点
热心指数
19 点
信用等级
12 点
经验
1978 点
帖子
383
精华
0
在线时间
330 小时
注册时间
2009-5-13
最后登录
2024-6-7

楼主
kakamama 发表于 2011-3-17 14:28:57 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

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

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
就是直接进行标准化回归系数的回归的OLS。。。。
二维码

扫码加我 拉你入群

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

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

关键词:OLS 有没有 标准化 回归系数 命令 标准化 OLS

沙发
DM小菜鸟 发表于 2014-12-13 20:11:18
跟其他软件相比,r还就是在标准化方面做得不算好。
比如r的lm功能是不输出标准化回归系数的。

此时,只好对着公式去自己一个一个去算了。

Beta.x1=(b.x1*sd.x1)/sd.y1


如果你有很多回归系数,还是写个function比较方便。


r里的计量经济学的包QuantPsyc里的lm.beta()可以很方便的输出这个结果。
  
一个例子:
  
# install.packages("QuantPsyc")
library(QuantPsyc)
us <- USJudgeRatings
names(us)
lm1 <- lm ( CONT ~ INTG + DMNR + DILG, us)
lm.beta(lm1)


其中的lm.beta其实是:
function (MOD)
{
b <- summary(MOD)$coef[-1, 1]
sx <- sd(MOD$model[-1])
sy <- sd(MOD$model[1])
beta <- b * sx/sy
return(beta)
}


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

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2025-12-9 06:35