선형 혼합 효과 모델의 레버리지 추출 ​​및 쿡 거리 추출 방법


10

누구든지 mer클래스 객체 ( lme4패키지 를 통해 얻은 )를 활용하고 Cook의 거리를 계산 (또는 추출)하는 방법을 알고 있습니까? 잔차 분석을 위해 이것을 플롯하고 싶습니다.

답변:


13

R 패키지를 살펴 봐야합니다 influence.ME. 로 생성 된 혼합 효과 모델에 대한 영향력있는 데이터의 측정 값을 계산할 수 있습니다 lme4.

예제 모델 :

library(lme4)
model <- lmer(mpg ~ disp + (1 | cyl), mtcars)

이 기능 influence은 모든 추가 단계의 기초입니다.

library(influence.ME)
infl <- influence(model, obs = TRUE)

쿡의 거리를 계산하십시오 :

cooks.distance(infl)

쿡 거리 :

plot(infl, which = "cook")

여기에 이미지 설명을 입력하십시오


감사! 이것은 확실히 도움이됩니다. Cook의 거리 대 레버리지 플롯에 대한 레버리지를 계산하는 것은 어떻습니까?
Roey Angel

@RoeyAngel influence.ME패키지로 는 불가능하다고 생각 합니다. 불행히도, 나는이 작업에 대한 해결책이 없습니다.
스벤 호헨 슈타인

infl <- influence(model, group = "cyl")임의 효과를 (1|cyl)? 로 지정 했으므로 해서는 안됩니다 . 사용할 때 내가 전혀 이것을 이해하지 모르겠지만, 내가 방금 설치 한 영향은 ...하지만 난 정말 모를 obs = TRUE때 사용하는 방법과 group...
호기심

다음을 추가하고 싶습니다. Cook의 D 거리가 발생하는 행 번호를 얻으려면-플롯하지 않고 플롯에서 동일한 숫자가 발생하면 Cuts와 함께 Cooks의 D 거리 숫자에 대해 다음 r 공식을 사용할 수 있습니다 예를 들어 0.1의 cooksD_data<-as.data.frame(cooks.distance(ft1)) cooksD_data_select<-cooksd[cooksD_data>0.1,drop=FALSE,] cooksD_oultiers<-as.numeric(rownames(cooksD_data_select))]
할인가

여기에 권장 되는 hatvalues()기능 보다 낫 습니까?
Curious
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.