<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Eu posso estar enganado então me corrijam em caso afirmativo. O leave-ONE-out é mais simples do que imagina. Grosseiramente falando, crie um laço for para deixar um caso de fora e ajuste o modelo. Depois estude uma medida de ajuste. No caso de lm, não requer de fato fazer a exaustiva tarefa de ajustar n modelos (deixando um caso de fora), pois se chega as medidas leave-one-out por projeções matriciais, etc. Mas num caso mais geral é algo como:<br><br></div><div class="gmail_default"><span style="font-family:monospace,monospace">da ## seu data.frame<br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">L <- vector(mode="list", length=nrow(da))<br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">for(i in 1:nrow(da)){<br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">    L[[i]] <- sua_funcao_R(..., data=da[-i,])<br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">}<br><br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">## Medidas de deviance leave-one-out.<br></span></div><div class="gmail_default"><span style="font-family:monospace,monospace">sapply(L, deviance)<br><br></span><div class="gmail_default"><span style="font-family:monospace,monospace">## log-veross leave-one-out.<br></span></div><span style="font-family:monospace,monospace">sapply(L, logLik)<br><br></span></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><span style="font-family:monospace,monospace">Código não testado.</span><br><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div></div>