<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from text --><style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<div class="PlainText">Te indico o pacote ExpDes se você quer uma rotina simples.<br>
<br>
Att.<br>
<br>
Tiago.<br>
<br>
Alisson Lucrécio <alisson.lucrecio@ifgoiano.edu.br> escreveu:<br>
<br>
</div>
<div>
<div dir="ltr">Caro Colegas da lista r-br,
<div><br>
</div>
<div>Preciso de uma ajudar para montar uma análise de variância para um fatorial tripo (Solo x Solução de Extração x Concentração) e um fator adicional água.</div>
<div> </div>
<div>Os dados fatoriais são compostos por 5 níveis de solos, 2 níveis de solução e 3 níveis de concentração. Os dados adicionais são compostos por 5 níveis de solo e 1 nível de solução (Água).</div>
<div><br>
</div>
<div>Segue um exemplo abaixo.</div>
<div><br>
</div>
<div>
<div>fat_data <- data.frame(Solo = gl(5, 18, la = LETTERS[1:5]),</div>
<div> Sol = gl(2, 9, length = 90, la = c("PO4", "SO4")),</div>
<div> Conc = gl(3, 3, length = 90, la = c(0.10, 0.25, 0.50)))</div>
<div><br>
</div>
<div>Rep <- apply(data.frame(Solo = rep(1:5, each = 18),</div>
<div> Sol = rep(rep(c(0.5, 1), each = 9), 5),</div>
<div> Conc = rep(rep(c(0.4, 0.9, 1.5), each = 3), 10)), 1, sum)</div>
<div><br>
</div>
<div>fat_data$Rep <- Rep + rnorm(length(Rep),0,0.5)</div>
<div><br>
</div>
<div>adi_data <- data.frame(Solo = gl(5, 3, la = LETTERS[1:5]),</div>
<div> Sol = rep("Água", 15))</div>
<div><br>
</div>
<div>Rep <- rep(1:5, each = 3)</div>
<div>adi_data$Rep <- Rep + rnorm(length(Rep),0,0.5)</div>
</div>
<div><br>
</div>
<div>Muito obrigado.<br>
</div>
<div>
<div>
<div><br>
</div>
-- <br>
<div class="x_gmail_signature">
<div dir="ltr"><span style="color:rgb(34,34,34); font-family:arial,sans-serif; font-size:13px; font-style:normal; font-variant:normal; font-weight:normal; letter-spacing:normal; line-height:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important; background-color:rgb(255,255,255)">Alisson
Lucrecio da Costa</span></div>
</div>
</div>
</div>
</div>
</div>
</body>
</html>