
<html><head></head><body><div class="ydpabf9cc80yahoo-style-wrap" style="font-family:bookman old style, new york, times, serif;font-size:16px;"><div><div dir="ltr" data-setdir="false">boa noite, <br>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? <br><br><b>Segue o CMR</b></div><div dir="ltr" data-setdir="false"><br><div><div># Dados </div><div>require(MCMCglmm)</div><div>data(PlodiaPO) </div><div>str(PlodiaPO)</div><div><br></div><div># Divisão dos dados </div><div>library(caTools)</div><div>divisao = sample.split(PlodiaPO$PO, SplitRatio = 0.75)</div><div>conj_treinamento = subset(PlodiaPO,divisao==TRUE)</div><div>conj_validacao = subset(PlodiaPO$PO,divisao==FALSE)</div><div><br></div><div><br></div><div># Modelo </div><div>require(sommer)</div><div>fit=mmer(PO ~ 1, random = ~ FSfamily, data=conj_treinamento)</div><div>summary(fit)</div><div><br></div><div># Validação ???</div><div>pred=predict(fit, new_data = conj_validacao, classify = "FSfamily")</div><div>pred</div><div><br></div></div> </div><div><br></div><div class="ydpabf9cc80signature"><div style="font-family:old times, serif;font-size:16px;"><div dir="ltr">att,.</div><div>André </div></div></div></div></div></body></html>