<div dir="ltr">Prezado Marcelo,<div>Segue artigo que pode lhe ser útil quanto à suposição de normalidade.</div><div>Abraço,</div><div>Rodrigo</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sat, Mar 2, 2019 at 1:17 PM Marcelo Laia por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Colegas,<br>
<br>
Estamos com um conjunto de dados que viola pressuposições da ANOVA,<br>
principalmente a normalidade. Eu já li, por diversas vezes, que essa violação<br>
pode não ser tão danosa assim, devido a robustez do teste.<br>
<br>
Por favor, tire um tempo para ver os resultados e depois peço uma ajuda.<br>
<br>
Genotipo e Isolado são fatores<br>
Area está em centímetros quadrados<br>
<br>
> leveneTest(Area ~ Genotipo*Isolado, data = cerato.desc)<br>
Levene's Test for Homogeneity of Variance (center = median)<br>
       Df F value    Pr(>F)    <br>
group  41  3.4755 4.718e-08 ***<br>
      126                      <br>
---<br>
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1<br>
> <br>
<br>
cat("Normality p-values by Factor Genotipo: ")<br>
for (i in unique(factor(cerato.desc$Genotipo))){<br>
  cat(shapiro.test(cerato.desc[cerato.desc$Genotipo==i, ]$Area)$p.value," ")<br>
}<br>
7.074459e-10  3.200422e-06<br>
<br>
#Shapiro-Wilk normality tests by Isolado<br>
for (i in unique(factor(cerato.desc$Isolado))){<br>
  cat(shapiro.test(cerato.desc[cerato.desc$Isolado==i, ]$Area)$p.value," ")<br>
}<br>
0.09534117  0.4006495  0.6065291  0.2093362  0.6138097  0.5604402  0.1302976  0.3135567  0.905537  0.7294285  0.0966383  0.1512716  0.8469947  0.1226855  0.2713435  0.9695489  0.2747097  0.5476302  0.0008750702  0.03693436  0.4197769 <br>
<br>
> bartlett.test(Area~Genotipo,data = cerato.desc )<br>
<br>
        Bartlett test of homogeneity of variances<br>
<br>
data:  Area by Genotipo<br>
Bartlett's K-squared = 19.769, df = 1, p-value = 8.738e-06<br>
<br>
> bartlett.test(Area~Isolado,data = cerato.desc )<br>
<br>
        Bartlett test of homogeneity of variances<br>
<br>
data:  Area by Isolado<br>
Bartlett's K-squared = 171.26, df = 20, p-value < 2.2e-16<br>
<br>
A pergunta é: mesmo com esses resultados eu poderia afirmar que o teste, neste<br>
caso, será robusto o suficiente para essas violações?<br>
<br>
Obrigado!<br>
<br>
-- <br>
Marcelo<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><div dir="ltr">Rodrigo Campos<div><br><div><br></div></div></div></div></div></div>