K-fold validación cruzada para el objeto de modelo de clase GLMM S4
Tengo un objeto GLMM ajustado usando elglmer
funcionar enR
y quieren realizar la validación cruzada de k-fold. Para GLMs simples he usado elCVbinary
función de laDAAG
pkg como se ve abajo.
> SimpleGLM <- glm(Res ~ Var1 + Var2, data = Data, family=binomial)
> CVbinary(SimpleGLM, nfolds=10, print.details=TRUE)
Fold: 3 2 4 1 7 10 6 9 5 8
Internal estimate of accuracy = 0.828
Cross-validation estimate of accuracy = 0.827
Sin embargo, cuando se agrega un término aleatorio para IndID al modelo, aparece un error (a continuación) de la clase S4 de un modelo que encaja conglmer
.
GLMMod <- glmer(Res ~ Var1 + Var2 + (1|IndID), data = Data, family=binomial)
> CVbinary(GLMMod , nfolds=10, print.details=TRUE)
Error in obj$data : $ operator not defined for this S4 class
He estado buscando en línea y no he podido encontrar una función similar aCVbinary
eso funciona con los objetos S4, pero quería verificar dos veces aquí antes de codificarlo manualmente.
En resumen, (asumiendo que estoy interpretando correctamente elR
error) ¿existe una función que realice la validación cruzada de k-fold en objetos S4?