<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Caso você queira conferir tente usar a função do pacote EXPDES.pt::dic(trata,respo,quali=c(TRUE),mcomp="sk").<BR> <BR>Tente executar seu comando da seguinte forma:<BR> <BR> sk1<-with(dad,SK(y=respo, model="respo~trata",which="trata"))<BR> <BR>Att.<BR> <BR>Tiago.<br><BR><div>#################################################################</div><div> </div><div>Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES</div><div> </div><div>Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas</div><div> </div><div>################################################################# </div><br> <BR><div><hr id="stopSpelling">Date: Mon, 2 Dec 2013 17:39:25 -0800<br>From: andreolsouza@yahoo.com.br<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: [R-br] ScottKnott<br><br><div style="color: rgb(0, 0, 0); font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 10pt; background-color: rgb(255, 255, 255);"><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-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; font-size: 13px; font-style: normal; background-color: transparent;'><span><br></span></div><div style='color: rgb(0, 0, 0); font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; font-size: 13px; font-style: normal; background-color: transparent;'><span><br></span></div><div style='color: rgb(0, 0, 0); font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; font-size: 13px; font-style: normal; background-color: transparent;'><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="ecxApple-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-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; font-size: 13px; font-style: normal; background-color: transparent;'><span>média iguais ? </span></div><div style='color: rgb(0, 0, 0); font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; font-size: 13px; font-style: normal; background-color: transparent;'><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="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><div><br></div><div>obrigado</div><div><br></div><div><br></div></div><br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</div> </div></body>
</html>