<html>
<head>
<meta content="text/html; charset=windows-1252"
http-equiv="Content-Type">
</head>
<body 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')<br>
<br>
<br>
<br>
<div class="moz-cite-prefix">On 18-03-2015 16:36, Fernando Antonio
de souza wrote:<br>
</div>
<blockquote
cite="mid:CAFrWFskQKSy9S9kN8d4x9H0px=bppyWVrKroroGTR6hdzT6m9Q@mail.gmail.com"
type="cite">
<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 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 moz-do-not-send="true"
href="mailto:e-mail%3Anandodesouza@gmail.com"
target="_blank">e-mail:nandodesouza@gmail.com</a><br>
<a moz-do-not-send="true"
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 class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</body>
</html>