<div dir="ltr"><div><div><div><div><div>Olá Felipe, obrigadopor me responder<br><br></div>Mas não é exatamente isso que eu tinha em mente quando levantei a questão. O que você me enviou foi a análise de resíduos básica de uma análise de variância. A minha questão não é essa.<br><br></div>Eu quero validar os dados de uma nova metologolia (C) em relação as outras 3 metodologias existentes (controle, A e B). Eu fiz a analise de variância e comparação de médias com o controle pelo teste de Dunnet<br><br></div>Eu quero saber se para validar há alguma outra estatístistica a mais ou somente essa comparação basta.<br><br></div>O meu objetivo é mostrar que a metodologia C fornece resultados iguais ou melhores que os métodos existentes<br><br></div>abçs<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 19 de março de 2015 13:17, Felipe <span dir="ltr"><<a href="mailto:felipe.e.barletta@gmail.com" target="_blank">felipe.e.barletta@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 bgcolor="#FFFFFF" text="#000000">
Para validar a ANOVA, análise de resíduos:<br>
Considerando um delineamento inteiramente casualizado.<br>
<br>
#### HOMOCEDASTICIDADE <br>
<br>
boxplot(modelo$res ~ d$trat, ylab='Residuals')<br>
### Gráfico de dispersão dos resíduos vs tratamento<br>
plot.default(d$trat, mod1$res, ylab='Residuals',
xlab='Tratamento',col='darkblue',cex=.75,pch=16)<br>
#### Testando Homocedasticidade<br>
# H0: As variâncias são comuns<br>
# H1: As variâncias não são comuns<br>
bartlett.test(modelo1$res, d$trat)<br>
<br>
#### NORMALIDADE DOS RESÍDUOS<br>
hist(modelo$res,prob=T,main='',ylab='',xlab='',bg='white',border='seagreen',breaks='FD',axes=F)<br>
axis(1)<br>
rug(modelo$res,col='seagreen')<br>
lines(density(modelo$res),col='red')<br>
<br>
stem(modelo$res)<br>
<br>
qqnorm(modelo$res,ylab='Residuals',col='darkblue',pch=16)<br>
qqline(modelo$res,col='red')<br>
## Teste de Normalidade<br>
# H0:Os resíduos seguem distribuição Normal<br>
# H1:Os resíduos NÃO seguem distribuição Normal<br>
shapiro.test(modelo$res)<br>
<br>
<br>
###### INDEPENDÊNCIA DOS RESÍDUOS<br>
par(mfrow=c(1,2))<br>
plot(modelo$fit, modelo$res, ylab='Residuals', xlab='Fitted
Values',col='darkblue',cex=.75,pch=16)<br>
title('Residual vs Fitted Values')<br>
<br>
plot(modelo$fit, order(modelo$res), ylab='Residuals', xlab='Fitted
Values',col='darkblue',cex=.75,pch=16)<br>
title('Residual vs Fitted Values')<br>
<br>
####### VERIFICAÇÃO DE OUTLIERS<br>
par(mfrow=c(2,2))<br>
plot(modelo)<br>
<br>
names(anova(modelo))<br>
var <- anova(modelo)$Mean[2]<br>
var<br>
res <- modelo$res<br>
resd <- (res/sqrt(var))<br>
boxplot(resd,col='darkblue',pch=16)<br>
plot.default(d$trat,resd,xlab='Tratamento',pch=16,type='p',col='red')<br>
title('Standard Residuals')<div><div class="h5"><br>
<br>
<br>
<br>
<div>On 18-03-2015 16:36, Fernando Antonio
de souza wrote:<br>
</div>
</div></div><blockquote type="cite"><div><div class="h5">
<div dir="ltr">
<div>
<div>
<div>Caros amigos,<br>
<br>
</div>
Estou analisando dados que comparam diferentes metodologias.
Os dados referem a medidas de áreas de olho de lombo e estou
comparando 4 metodologias utilizadas para medila (controle,
A, B, C). Eu realizei a anova e utilizei o teste de dunnet
para fazer as comparações dos tratamento com o grupo
controle. <br>
<br>
</div>
Gostaria de saber quais avaliações estatísticas a mais eu
posso fazer para melhorar esta análise? Quais análises de
resíduos eu posso utilizar?<br>
<br>
</div>
abçs<br clear="all">
<div>
<div>
<div>
<div><br>
-- <br>
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">=======================================================================<br>
Fernando Souza<br>
Zootecnista, DSc. Produção Animal<br>
celular: <a href="tel:%28%2B55%29%2082%208113-8781" value="+558281138781" target="_blank">(+55) 82 8113-8781</a><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>
</div>
</div>
<br>
<fieldset></fieldset>
<br>
</div></div><pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
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.</pre>
</blockquote>
<br>
</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">=======================================================================<br>Fernando Souza<br>Zootecnista, DSc. Produção Animal<br>celular: (+55) 82 8113-8781<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>