Это мой код при работе с многоуровневой моделью регрессии logisti c, которая выдает предупреждающее сообщение аргумента non-Numberri c:
> library(lme4)
> fit <- glmer(antemed ~ (1 | comm), family = binomial("logit"), data = mydata)
> fita <- glm(antemed ~ 1, data = mydata, family = binomial("logit"))
> logLik(fita)-logLik(fit)
'log Lik.' -399.8391 (df=1)
> u0 <- ranef(fit, condVar = TRUE)
> u0se <- sqrt(attr(u0[[1]], "condVar")[1, , ])
Error in sqrt(attr(u0[[1]], "condVar")[1, , ]) :
non-numeric argument to mathematical function
Что я делаю не так, пожалуйста?