<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix">Em 16/12/2013 08:32, Ari Clecius
escreveu:<br>
</div>
<blockquote
cite="mid:1387193561.25451.YahooMailNeo@web124505.mail.ne1.yahoo.com"
type="cite">
<div style="color:#000; background-color:#fff;
font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial,
Lucida Grande, sans-serif;font-size:8pt">
<div><span>Prezados, como faço para realizar o teste de Tukey
neste experimento?</span></div>
<div style="color: rgb(0, 0, 0); font-size: 11px; 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: 11px; font-family:
HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida
Grande', sans-serif; background-color: transparent;
font-style: normal;"><span>Att,</span></div>
<div> </div>
<div><span style="font-weight:bold;font-style:italic;">Ari
Clecius Alves de Lima</span><br
style="font-weight:bold;font-style:italic;">
<span style="font-weight:bold;font-style:italic;">Engenheiro
Químico</span><br
style="font-weight:bold;font-style:italic;">
<span style="font-weight:bold;font-style:italic;">Me.
Engenharia Civil</span><br
style="font-weight:bold;font-style:italic;">
<span style="font-weight:bold;font-style:italic;">(085)87687786</span><br
style="font-weight:bold;font-style:italic;">
<span style="font-weight:bold;font-style:italic;">(085)33669042</span></div>
<div style="color: rgb(0, 0, 0); font-size: 11px; font-family:
HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida
Grande', sans-serif; background-color: transparent;
font-style: italic;"><span
style="font-weight:bold;font-style:italic;"><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>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
Você pode utilizar a função TukeyHSD(lm.1,c("A","B","C"), essa
função pertenção ao pacote stats (ou seja ela vem instalada com o R)<br>
<br>
<br>
<br>
<br /><br />
<hr style='border:none; color:#909090; background-color:#B0B0B0; height: 1px; width: 99%;' />
<table style='border-collapse:collapse;border:none;'>
<tr>
<td style='border:none;padding:0px 15px 0px 8px'>
<a href="http://www.avast.com/">
<img border=0 src="http://static.avast.com/emails/avast-mail-stamp.png" />
</a>
</td>
<td>
<p style='color:#3d4d5a; font-family:"Calibri","Verdana","Arial","Helvetica"; font-size:12pt;'>
Este email está limpo de vírus e malwares porque a proteção do <a href="http://www.avast.com/">avast! Antivírus</a> está ativa.
</p>
</td>
</tr>
</table>
<br />
</body>
</html>