<div dir="ltr"><div><div>Obrigado, Walmes,<br><br></div>Irei testar aqui e retornarei a lista. Irei estudar mais sobre o tema.  Hoje li alguns tutoriais sobre o assunto e realmente tenho a impressão de ser muito simples. Mas não tinha ideía o quão simples era para implementá-la.<br><br></div>Abçs<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 1 de junho de 2015 21:23, walmes . <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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.<span class="HOEnZb"><font color="#888888"><br></font></span></div><span class="HOEnZb"><font color="#888888"><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></font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr">=======================================================================<br>Fernando Souza<br>Zootecnista, DSc. Produção Animal<br><a href="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank">e-mail:nandodesouza@gmail.com</a><br><a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>========================================================================<br></div></div></div></div></div></div></div></div>
</div>