<html><body><div style="color:#000; background-color:#fff; font-family:verdana, helvetica, sans-serif;font-size:10pt"><div style="font-family: verdana, helvetica, sans-serif; font-size: 10pt;"><span>Olá,</span></div><div style="font-family: verdana, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;">eu gostaria de usar o teste de comparações múltiplas LSD de Fisher após rodar um modelo misto, porém não encontrei nenhuma função para tal.</div><div style="font-family: verdana, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal;">Os comandos que tentei são:</div><div style="background-color: transparent;"><div style="background-color: transparent;"><br></div><div style="background-color: transparent;"><font face="verdana, helvetica, sans-serif" size="2">mod1 <- aov(resposta ~ fator + Error(sujeito/fator),
data=dados)</font></div><div style="background-color: transparent;"><span style="font-family: verdana, helvetica, sans-serif; font-size: 13px; background-color: transparent;"><br></span></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 13px; font-family: verdana, helvetica, sans-serif; font-style: normal;"><span style="font-family: verdana, helvetica, sans-serif; font-size: 13px; background-color: transparent;">require(nlme)</span></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 13px; font-family: verdana, helvetica, sans-serif; font-style: normal;"><span style="font-family: verdana, helvetica, sans-serif; font-size: 13px; background-color: transparent;">mod2 <- lme(<span style="font-size: 13px;">resposta ~ fator</span>, random = ~1|sujeito/fator,data=dados)</span><br></div><div style="background-color: transparent;"><br></div><div style="background-color: transparent; color: rgb(0, 0,
0); font-size: 16px; font-family: 'Times New Roman'; font-style: normal;">Usando o mod2 consigo rodar o teste de Tukey com a seguinte função:</div><div style="background-color: transparent;"><font face="verdana, helvetica, sans-serif" size="2">glht(mod2,linfct=mcp(fator="Tukey"))</font></div><div style="background-color: transparent;"><span style="background-color: transparent; font-size: 16px;">Porém eu preciso do LSD de Fisher. Encontrei a função LSD.test, mas ela não funciona para modelo misto</span><br></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 16px; font-family: 'Times New Roman'; font-style: normal;"><span style="font-family: verdana, helvetica, sans-serif; font-size: 13px;">require(agricolae)</span><br></div><div style="background-color: transparent;"><font face="verdana, helvetica, sans-serif" size="2">LSD.test(mod1,"fator", group=TRUE)</font></div></div><div style="font-family: verdana, helvetica,
sans-serif; font-size: 10pt;"></div><div style="font-family: verdana, helvetica, sans-serif; font-size: 10pt;"> </div><div style="font-family: verdana, helvetica, sans-serif; font-size: 10pt;"><br></div><div style="font-family: verdana, helvetica, sans-serif; font-size: 10pt;">Alguém sabe me indicar alguma função que faça o teste LSD de Fisher considerando o mod1, mod2, ou outro modelo com mesmos resultados? </div><div style="font-family: verdana, helvetica, sans-serif; font-size: 10pt;">Desde já agradecida,</div><div style="font-family: verdana, helvetica, sans-serif; font-size: 10pt;">Juliana</div><div style="font-family: verdana, helvetica, sans-serif; font-size: 10pt;"><br></div></div></body></html>