<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Caros amigos<br>
Estou analisando uns dados de produção de gases onde foi avaliado o
efeito da adição de 3 níveis de farelo de coco em uma ração base
(feno+soja+Milho) sobre a produção de metano. Foi utilizado um DIC
com arranjo fatorial 3 x 2 (nível de farelo adicionado x Industria
de origem do farelo). Nesse experimento a produção de metano da
dieta sem adição de farelo (nível controle tambem foi avaliada. Eu
quero avaliar este experimento em relação a dieta controle? Como
posso fazer isso, uma vez que não tenho um fatorial para o controle?
<br>
Penso que este experimento deva ser avaliado como um fatorial com
tratamento adicional 3 x 2 + 1, mas não sei como fazê-lo. Alguém
pode me orientar?<br>
<span class="Apple-style-span" style="border-collapse: separate;
color: rgb(0, 0, 0); font-family: 'Courier New'; font-size: 13px;
font-style: normal; font-variant: normal; font-weight: normal;
letter-spacing: normal; line-height: 15px; orphans: 2; text-align:
-webkit-left; text-indent: 0px; text-transform: none; white-space:
pre-wrap; widows: 2; word-spacing: 0px;
-webkit-border-horizontal-spacing: 0px;
-webkit-border-vertical-spacing: 0px;
-webkit-text-decorations-in-effect: none;
-webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;
background-color: rgb(225, 226, 229); ">
<pre tabindex="0" class="GCG2UJHDNAB" style="font-family: 'Courier New'; font-size: 10pt !important; outline-style: none; outline-width: initial; outline-color: initial; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; white-space: pre-wrap !important; word-break: break-all; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; -webkit-user-select: text; line-height: 1.2; "><span class="GCG2UJHDABB ace_keyword" style="white-space: pre; -webkit-user-select: text; color: blue; "> </span><span class="GCG2UJHDEAB ace_keyword" style="color: blue; ">
</span>dados<-structure(list(Amostra = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), Industria = c(0L, 0L, 0L, 0L,
0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), Metano = c(23.82046,
22.58261, 6.90982, 9.52078, 18.04296, 24.80488, 19.28557, 13.93736,
19.13685, 8.62221, 16.07414, 9.38481, 10.82267, 17.51822, 22.07641,
23.04412, 22.8202, 26.22151, 8.506, 19.75686, 2.87987, 14.44739,
13.23224, 2.10336, 9.61595, 1.94412, 8.66299, 4.49037, 14.61952,
15.54833, 17.3914, 1.89799, 15.31825, NA, 14.09188, 4.86393,
NA, 10.15676, 4.80198, 14.74247, 18.07063, 8.45602, 15.9324,
8.86496, 13.61907, 4.17938, 16.34748, 14.99311, 12.23218)), .Names = c("Amostra",
"Industria", "Metano"), class = "data.frame", row.names = c(NA,
-49L))
Amostra= Nível de farelo adicionado (nível 0 é o controle)
Industria= (Industria de origem do farelo), há duas industria avaliada
</pre>
</span><br>
dados<-transform(dados,Amostra=factor(Amostra),Industria=factor(Industria))<br>
ANALISE<-aov(Metano~Amostra*Industria,data=dados[-c(32,3,21),])<br>
drop1(ANALISE,~.,test="F")<br>
shapiro.test(resid(ANALISE)<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>