<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><span>Irei partir do princípios que as medidas repetidas são independentes. Se o interesse é comparar mais de duas médias podemos usar a técnica da análise de variância seguida de um teste de comparação múltipla. Segue o script.</span></div><div><br><span></span></div><div><span>DIA1 <- c(7.306,7.296,7.326,7.334,7.334)<br>DIA2 <- c(7.244,7.258,7.288,7.304,7.240)<br>DIA3 <- c(6.998,7.044,7.044,7.076,7.086)<br>DIA4 <- c(6.940,6.956,6.98,6.998,7.002)<br>DIA5 <- c(7.116,7.130,7.142,7.148,7.150)<br>pot <- c(DIA1,DIA2,DIA3,DIA4,DIA5)<br>dias <- rep(c('DIA1','DIA2','DIA3','DIA4','DIA5'),rep(5,5))<br>dad <- data.frame(dias,pot)<br>dad<br>mod <- aov(pot ~ dias,data=dad)<br>summary(mod)<br>plot(mod)#Avaliando os
pressupostos.<br>library(agricolae)<br>HSD.test(mod,'dias')</span></div><div><br><span></span></div><div><span>(S,f,P)</span></div><div><span>Allaman<br></span></div><div> </div><div style="background-color:transparent;" align="center"><font style="background-color:transparent;" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\begin{signature}</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2"><<>>=</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Prof. Dr. Ivan
Bezerra Allaman</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Universidade Estadual de Santa Cruz</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Ilhéus/BA - Brasil</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Fone: +55 73 3680-5596</font></div><div style="text-align:left;background-color:transparent;" align="center"><font class="Apple-style-span" face="courier,
monaco, monospace, sans-serif" size="2">E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com</font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">@</font></font></div><div style="text-align:left;background-color:transparent;" align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\end{signature}</font></font></div></div></body></html>