楼主: liqian0614
3236 5

[问答] R语句的小问题~ [推广有奖]

  • 2关注
  • 0粉丝

高中生

45%

还不是VIP/贵宾

-

威望
0
论坛币
21 个
通用积分
0.0513
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
214 点
帖子
17
精华
0
在线时间
19 小时
注册时间
2014-7-22
最后登录
2014-9-9

楼主
liqian0614 发表于 2014-8-11 10:02:24 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

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

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
states<-as.data.frame(state.x77[,c("Murder","Population","Illiteracy","Income","Frost")])
fit<-lm(Murder~Population+Illiteracy+Income+Frost,data=states)
install.packages("car")
library(car)
vif(fit)
sqrt(vif(fit))>2 # problem?

因为刚接触R语言,没看到过这样的语句:sqrt(vif(fit))>2 # problem?,主要是# problem? 有人能给我讲解一下么?
二维码

扫码加我 拉你入群

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

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

关键词:R语句 小问题 problem States State problem

QQ图片20140811095512.jpg (10.31 KB)

QQ图片20140811095512.jpg

QQ图片20140811095512.jpg (10.31 KB)

QQ图片20140811095512.jpg

回帖推荐

crystal8832 发表于2楼  查看完整内容

#problem? 是注释,R中是不会执行的,如果是别人的程序,可能是认为该命令存在问题,所以自己加了这样的一句话。 你这个我没看错的话应该是在求方差膨胀因子,就是在判断多重共线问题,后面那句是认为当VIF大于4认为有多重共线问题

沙发
crystal8832 学生认证  发表于 2014-8-11 10:14:58
#problem?
是注释,R中是不会执行的,如果是别人的程序,可能是认为该命令存在问题,所以自己加了这样的一句话。
你这个我没看错的话应该是在求方差膨胀因子,就是在判断多重共线问题,后面那句是认为当VIF大于4认为有多重共线问题

藤椅
一路嘿嘿 发表于 2014-8-11 10:17:23
sqrt(vif(fit))是一个向量,
  1. sqrt(vif(fit))>2
复制代码
返回相同长度向量,如果元素大于2就返回TRUE,否则就返回FALSE

#号后面代表注释,建议你看一些R的入门书吧,这种问题最好不要问别人,最基础的问题
已有 1 人评分热心指数 收起 理由
crystal8832 + 1 分析的有道理

总评分: 热心指数 + 1   查看全部评分

板凳
liqian0614 发表于 2014-8-11 10:25:46
crystal8832 发表于 2014-8-11 10:14
#problem?
是注释,R中是不会执行的,如果是别人的程序,可能是认为该命令存在问题,所以自己加了这样的一 ...
这样啊,我还以为#有新的含义,不只是注释

报纸
liqian0614 发表于 2014-8-11 10:26:25
一路嘿嘿 发表于 2014-8-11 10:17
sqrt(vif(fit))是一个向量,返回相同长度向量,如果元素大于2就返回TRUE,否则就返回FALSE

#号后面代表注 ...
你说的这个我懂的,我也知道#号后面代表注释,但是他写在代码里,我以为有别的含义

地板
liqian0614 发表于 2014-8-11 13:39:48
crystal8832 发表于 2014-8-11 10:14
#problem?
是注释,R中是不会执行的,如果是别人的程序,可能是认为该命令存在问题,所以自己加了这样的一 ...
在检测强影响点的时候有这样一段代码:
states<-as.data.frame(state.x77[,c("Murder","Population","Illiteracy","Income","Frost")])
fit<-lm(Murder~Population+Illiteracy+Income+Frost,data=states)
cutoff<-4/(nrow(states)-length(fit$coefficients)-2)
plot(fit,which=4,cook.levels=cutoff)
abline(h=cutoff,lty=2,col="red")

请问您能帮我解析下第五条语句么?我把cook.levels=cutoff删掉,发现结果也没有任何变化,那这语句又起怎样的作用呢

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

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