<div>Eu trabalho assim</div>#---------------------Analise de Cook's distance -------------------------------------------<div>install.packages(sfsmisc); library(sfsmisc)<br><div>analise<-lm(CONSUMO~factor(GEST)*factor(MANEJO),data=agua)<br><div>n<-length(agua$CONSUMO)  # número de observações</div><div>n.plot(cooks.distance(analise),seq(1:n),cex=.5,nam=agua$ANIMAL)</div><div>criterio<-4/analise$df.residual</div><div>abline(v=criterio)</div><div>#--------------------------------Eliminacao de outiliers--------------------------------------</div><div>ifelse(cooks.distance(analise)>criterio,1,0)->agua$cook</div><div>analisecook<-lm(CONSUMO~factor(MANEJO)*factor(GEST),data=agua,subset=(cook==0 & GEST!=0 )) #eliminando outliers.<br>==================================<br>Fernando Souza<br>Zootecnista, DSc. Produção e Alimentação Animal<br>celular: (31)99796-8781 (Vivo) / (31)97358-4685 (Tim)<br>e-mail:nandodesouza@gmail.com<br>Lattes: <a href="http://lattes.cnpq.br/6519538815038307">http://lattes.cnpq.br/6519538815038307</a><br>blog: <a href="https://producaoanimalcomr.wordpress.com/">https://producaoanimalcomr.wordpress.com/</a><br>=================================

<br><br>Em Sex, Out 14, 2016 em 3:52 , Walmes Zeviani via R-br <r-br@listas.c3sl.ufpr.br> escreveu:<br>
<blockquote type="cite"><div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Além da distância de Cook, você tem mais opções de medidas de influência com a inflence.measures(). Dê uma olhada aqui para ver exemplos <a href="http://leg.ufpr.br/~walmes/cursoR/mgest/1medidas-influen.html">http://leg.ufpr.br/~walmes/cursoR/mgest/1medidas-influen.html</a>. Eu gosto de usar o DFits como medida.<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>
</blockquote></div></div></div>