<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><div><span>Pessoal depois de pesquisar na grupo e no manual da função ainda não resolvi o que quero. Estou com esta estrutura. </span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div
style="background-color: transparent;">> setwd("/media/Meus arquivos/Pendrive/KINGSTON/sweave/apostilaR2")</div><div style="background-color: transparent;">> require(gdata)</div><div style="background-color: transparent;">> dad<-read.xls("dic.xls")</div><div style="background-color: transparent;">> str(dad)</div><div style="background-color: transparent;">'data.frame':<span class="Apple-tab-span" style="white-space:pre"> </span>12 obs. of 3 variables:</div><div style="background-color: transparent;"> $ trata: Factor w/ 4 levels "A","B","C","D": 1 1 1 2 2 2 3 3 3 4 ...</div><div style="background-color: transparent;"> $ rep : int 1 2 3 1 2 3 1 2 3 1 ...</div><div style="background-color: transparent;"> $ respo: int 6 14 4 9 10 8 73 22 10 1 ...</div><div style="background-color: transparent;">> attach(dad)</div><div style="background-color: transparent;">> dad</div><div style="background-color:
transparent;"> trata rep respo</div><div style="background-color: transparent;">1 A 1 6</div><div style="background-color: transparent;">2 A 2 14</div><div style="background-color: transparent;">3 A 3 4</div><div style="background-color: transparent;">4 B 1 9</div><div style="background-color: transparent;">5 B 2 10</div><div style="background-color: transparent;">6 B 3 8</div><div style="background-color: transparent;">7 C 1 73</div><div style="background-color: transparent;">8 C 2 22</div><div style="background-color: transparent;">9 C 3 10</div><div style="background-color:
transparent;">10 D 1 1</div><div style="background-color: transparent;">11 D 2 10</div><div style="background-color: transparent;">12 D 3 4</div><div style="background-color: transparent;">> library(doBy)</div><div style="background-color: transparent;">> summaryBy(respo~trata,dad,FUN=c(mean,sd))</div><div style="background-color: transparent;"> trata respo.mean respo.sd</div><div style="background-color: transparent;">1 A 8 5.291503</div><div style="background-color: transparent;">2 B 9 1.000000</div><div style="background-color: transparent;">3 C 35 33.451457</div><div style="background-color: transparent;">4 D 5 4.582576</div><div
style="background-color: transparent;">> require(ScottKnott)</div><div style="background-color: transparent;">> sk1<-SK(dad,y=respo,model="respo~trata",which="trata")</div><div style="background-color: transparent;">> summary(sk1)</div><div style="background-color: transparent;"> Levels Means SK(5%)</div><div style="background-color: transparent;"> C 35 a</div><div style="background-color: transparent;"> B 9 a</div><div style="background-color: transparent;"> A 8 a</div><div style="background-color: transparent;"> D 5 a</div><div style="background-color: transparent;"><span></span></div><div style="background-color: transparent;">> plot(sk1, title = "Treatamentos", col = rainbow(3))</div><div style="background-color:
transparent;"><br></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span>média iguais ? </span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><br></div><div></div><div> Minha pergunta é o que fiz de errado? Declarei o modelo errado? </div><div>o correto seria<span style="color: rgb(205, 35, 44);"> </span><span style="font-size: 10pt;"><span style="color: rgb(205, 35, 44);">sk1<-SK<span style="font-weight: bold;">(x=dad</span>,y=respo,model="respo~trata",which="trata")?</span> Não mudou nada na resposta </span></div><div><div style="margin-top: 0.1em; margin-bottom: 0.1em; background-color:
transparent;">summary(sk1)</div><div style="margin-top: 0.1em; margin-bottom: 0.1em; background-color: transparent;"> Levels Means SK(5%)</div><div style="margin-top: 0.1em; margin-bottom: 0.1em; background-color: transparent;"> C 35 a</div><div style="margin-top: 0.1em; margin-bottom: 0.1em; background-color: transparent;"> B 9 a</div><div style="margin-top: 0.1em; margin-bottom: 0.1em; background-color: transparent;"> A 8 a</div><div style="margin-top: 0.1em; margin-bottom: 0.1em; background-color: transparent;"> D 5 a</div></div><div><br></div><div>obrigado</div><div><br></div><div><br></div></div></body></html>