<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'>Uma opção mais simples seria utilizar o package "ExpDes".<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> <p><BR><div><hr id="stopSpelling">Date: Mon, 16 Dec 2013 03:32:41 -0800<br>From: ari072000@yahoo.com.br<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: [R-br] Teste de Tukey em experimento fatorial<br><br><div style="color: rgb(0, 0, 0); font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 8pt; background-color: rgb(255, 255, 255);"><div><span>Prezados, como faço para realizar o teste de Tukey neste experimento?</span></div><div style='color: rgb(0, 0, 0); font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; font-size: 11px; 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: 11px; font-style: normal; background-color: transparent;'><span>Att,</span></div><div></div><div> </div><div><span style="font-style: italic; font-weight: bold;">Ari Clecius Alves de Lima</span><br style="font-style: italic; font-weight: bold;"><span style="font-style: italic; font-weight: bold;">Engenheiro Químico</span><br style="font-style: italic; font-weight: bold;"><span style="font-style: italic; font-weight: bold;">Me. Engenharia Civil</span><br style="font-style: italic; font-weight: bold;"><span style="font-style: italic; font-weight: bold;">(085)87687786</span><br style="font-style: italic; font-weight: bold;"><span style="font-style: italic; font-weight: bold;">(085)33669042</span></div><div style='color: rgb(0, 0, 0); font-family: HelveticaNeue, "Helvetica Neue", Helvetica, Arial, "Lucida Grande", sans-serif; font-size: 11px; font-style: italic; background-color: transparent;'><span style="font-style: italic; font-weight: bold;"><br></span></div><div style="background-color: transparent;"><b><i># Experimento factorial completo</i></b></div><div style="background-color: transparent;"><b><i>library(qualityTools)</i></b></div><div style="background-color: transparent;"><b><i>exp1 = facDesign( k = 3 , replicates=2)</i></b></div><div style="background-color: transparent;"><b><i>names (
exp1 ) = c ( " pH " , " Volume da amostra" , "Volume de eluição" )</i></b></div><div style="background-color: transparent;"><b><i>units(exp1)=c("", "mL", "mL")</i></b></div><div style="background-color: transparent;"><b><i>lows ( exp1 ) = c (3, 250,2) </i></b></div><div style="background-color: transparent;"><b><i>highs ( exp1 ) = c (7.5,500,4) </i></b></div><div style="background-color: transparent;"><b><i>summary( exp1 )</i></b></div><div style="background-color: transparent;"><b><i>y=c(301194.3, 163197.05, 236720.8, 67201.2, 142970.3, 145672.55, 346889.9, 1470375.4, 156877.15, 74782.75, 129978, 144724.8, 67715.85, 74768.9, 149722.25, 168859.55)</i></b></div><div style="background-color: transparent;"><b><i>response(exp1)=data.frame(y)</i></b></div><div style="background-color: transparent;"><b><i>summary( exp1 )</i></b></div><div style="background-color: transparent;"><b><i>lm.1=lm(y~A*B*C,data=exp1)</i></b></div><div style="background-color: transparent;"><b><i>summary(lm.1)</i></b></div><div style="background-color: transparent;"><b><i><br></i></b></div><div style="background-color: transparent;"><b><i>exp2=data.frame(exp1)</i></b></div><div style="background-color: transparent;"><b><i>A=c(exp2$A)</i></b></div><div style="background-color: transparent;"><b><i>B=c(exp2$B)</i></b></div><div style="background-color: transparent;"><b><i>C=c(exp2$C)</i></b></div><div style="background-color: transparent;"><b><i>y=(exp2$y)</i></b></div><div style="background-color: transparent;"><b><i>exp3=data.frame(cbind(A,B,C,y))</i></b></div><div style="background-color: transparent;"><b><i>exp3</i></b></div><div style="background-color: transparent;"><b><i>A=as.factor(A)</i></b></div><div style="background-color: transparent;"><b><i>B=as.factor(B)</i></b></div><div style="background-color: transparent;"><b><i>C=as.factor(C)</i></b></div><div style="background-color: transparent;"><b><i>exp3aov=aov(y~A*B*C,data=exp3)</i></b></div><div style="background-color: transparent;"><b><i>TukeyHSD(exp3aov)</i></b></div><div style="background-color: transparent;"><b><i><br></i></b></div><div style="background-color: transparent;"><b><i>Error in TukeyHSD.aov(exp3aov) : nenhum fator no modelo ajustado</i></b></div><div style="background-color: transparent;"><b><i>In addition: Warning messages:</i></b></div><div style="background-color: transparent;"><b><i>1: In replications(paste("~", xx), data = mf) : non-factors ignored: A</i></b></div><div style="background-color: transparent;"><b><i>2: In replications(paste("~", xx), data = mf) : non-factors ignored: B</i></b></div><div style="background-color: transparent;"><b><i>3: In replications(paste("~", xx), data = mf) : non-factors ignored: C</i></b></div><div style="background-color: transparent;"><b><i>4: In replications(paste("~", xx), data = mf) : non-factors ignored: A,
B</i></b></div><div style="background-color: transparent;"><b><i>5: In replications(paste("~", xx), data = mf) : non-factors ignored: A, C</i></b></div><div style="background-color: transparent;"><b><i>6: In replications(paste("~", xx), data = mf) : non-factors ignored: B, C</i></b></div><div style="background-color: transparent;"><b><i>7: In replications(paste("~", xx), data = mf) :</i></b></div><div style="background-color: transparent;"><b><i><span></span></i></b></div><div style="background-color: transparent;"><b><i> non-factors ignored: A, B, C</i></b></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>