您需要提供
rank.args
作为一个
list
(参见
?model.sel
)
library(MuMIn)
model.sel(model_global, model_1, model_2, model_3, model_null,
rank = QAIC,
rank.args = list(chat = deviance(model_global) / df.residual(model_global)))
在您提供的(漂亮的小)示例中,
chat
恰好是
< 1
,生成警告,并且
闲聊
设置为1。
# Model selection table
# (Intrc) disp mpg wt df logLik QAIC delta weight
# model_global -21.9000 -0.0403 0.6470 5.332 4 -8.844 25.7 0.00 0.569
# model_2 4.1380 -0.0216 2 -11.348 26.7 1.01 0.344
# model_1 -8.8330 0.4304 2 -12.767 29.5 3.85 0.083
# model_3 5.7150 -1.911 2 -15.683 35.4 9.68 0.004
# model_null -0.2513 1 -21.930 45.9 20.17 0.000
# Warning messages:
# 1: In rank(x, chat = 0.631714762477434) :
# 'chat' given is < 1, increased to 1
# ..snip..