boa noite, 
estou com dificuldades fazer a validação cruzada de modelos gerados com as bibliotecas sommer e MCMCglmm. Alguém do grupo que tenha experiência poderia ma dar uma ajuda? 

Segue o CMR

# Dados 
require(MCMCglmm)
data(PlodiaPO) 
str(PlodiaPO)

# Divisão dos dados 
library(caTools)
divisao = sample.split(PlodiaPO$PO, SplitRatio = 0.75)
conj_treinamento = subset(PlodiaPO,divisao==TRUE)
conj_validacao = subset(PlodiaPO$PO,divisao==FALSE)


# Modelo 
require(sommer)
fit=mmer(PO ~ 1, random = ~ FSfamily, data=conj_treinamento)
summary(fit)

# Validação ???
pred=predict(fit, new_data = conj_validacao, classify = "FSfamily")
pred

 

att,.
André