我目前已经使用lme
R 中的包构建了一个传销。我正在尝试测量厨师与该模型的距离。我正在使用influence
汽车包中的功能,文档说您可以读入该cooks.distance
功能。但是,当我将这个函数的结果放入函数中时cooks.distance
,它返回的值范围是 4.27 到 1609.96。
acc_2_d_l2b <- lme(Acc~load1+load2+PSWQd_Acc_C_p58, random=~1|Subject,
weights=varIdent(form=~1|trial), data=final_data_long_p58,
method="REML", na.action="na.exclude")
b <- influence(acc_2_d_l2b, group=c("Subject"), obs=TRUE)
a <- cooks.distance(b, group=c("Subject"))