<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css" style="display:none;"> P {margin-top:0;margin-bottom:0;} </style>
</head>
<body dir="ltr">
<div style="font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif; font-size: 12pt; color: rgb(0, 0, 0);">
Walmes, eu consegui fazer pelo comando lapply a anova individual dos 5 locais. Só que agora não estou conseguindo colocasr os termos da fonte de variação em ordem:</div>
<div style="font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div style="font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif; font-size: 12pt; color: rgb(0, 0, 0);">
<div># ajuste do modelo de efeitos fixos para bloco dentro de repeticao</div>
<div><br>
</div>
<div><br>
</div>
<div>#Anova Individual</div>
<div>mi <- lapply(split(da, f=da$local), aov, </div>
<div> formula=producao ~ repeticao/bloco + cultivar)</div>
<div>lapply(mi, summary)#nao ajustado pra bloco</div>
<div><br>
</div>
<div>#Arrumar ordem dos termos e tornar cultivar ajustado pra bloco</div>
<div>mi <- lapply(split(da, f=da$local), aov, </div>
<div> terms(formula=producao ~ repeticao/bloco + cultivar,</div>
<div> keep.order = TRUE))</div>
<div><br>
</div>
Ocorre um erro:
<div>Error in terms.default(formula, "Error", data = data) : </div>
<div> no terms component nor attribute</div>
<div><br>
</div>
<div><br>
</div>
<div>Creio que seja na fórmula. Qual seria a ordenação correta para poder utilizar esse comando terms?</div>
<div><br>
</div>
<div>Att.,</div>
</div>
<div style="font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div id="signature">
<div id="divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Garamond,Georgia,serif">
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b>Euriann L. M. Yamamoto</b></font></div>
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b>Doutoranda em Agronomia</b></font></div>
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b>Universidade Federal da Grande Dourados</b></font></div>
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b><br>
</b></font></div>
<div style="text-align:center"><br>
</div>
<div style="text-align:center"><br>
</div>
<div><font color="#2672EC" size="3" style="font-size:12pt"><br>
</font></div>
</div>
</div>
<div style="font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>De:</b> Euriann Yamamoto<br>
<b>Enviado:</b> quinta-feira, 19 de outubro de 2017 17:05<br>
<b>Para:</b> Walmes Zeviani<br>
<b>Assunto:</b> RE: [R-br] Látice parcialmente balanceado em vários locais</font>
<div> </div>
</div>
<div>
<div style="font-family:"Palatino Linotype","Book Antiqua",Palatino,serif; font-size:12pt; color:rgb(0,0,0)">
Walmes, segue abaixo o script que alterei para o látice parc. balanc.. Consta nele a ANOVA com tratamentos não-ajustados e bloco/repetição não-ajustados.</div>
<div style="font-family:"Palatino Linotype","Book Antiqua",Palatino,serif; font-size:12pt; color:rgb(0,0,0)">
<br>
</div>
<div style="font-family:"Palatino Linotype","Book Antiqua",Palatino,serif; font-size:12pt; color:rgb(0,0,0)">
Acontece que eu tenho 5 experimentos em látice 6x6, cada um em 5 municípios na safra agrícola 2008-09. Como automatizar a análise para que eu utilize um mesmo .txt contendo os locais, tratamentos, blocos, repetições e a variável?</div>
<div style="font-family:"Palatino Linotype","Book Antiqua",Palatino,serif; font-size:12pt; color:rgb(0,0,0)">
<br>
</div>
<div style="font-family:"Palatino Linotype","Book Antiqua",Palatino,serif; font-size:12pt; color:rgb(0,0,0)">
Script:</div>
<div style="font-family:"Palatino Linotype","Book Antiqua",Palatino,serif; font-size:12pt; color:rgb(0,0,0)">
<div>rm(list=ls())</div>
<div>ls()</div>
<div>library(lattice)</div>
<div>library(agricolae)</div>
<div>library(contrast)</div>
<div>library(multcomp)</div>
<div>library(doBy)</div>
<div>library(latticeExtra)</div>
<div>library(nlme)</div>
<div><br>
</div>
<div>#-----------------------------------------------------------------------</div>
<div># lendo arquivos de dados</div>
<div>da <- read.table("C:/ADSR/Tese/teste.txt",</div>
<div> header = TRUE,</div>
<div> colClasses = rep(c("factor", "numeric"), c(3, 1)))</div>
<div>str(da)</div>
<div>#-----------------------------------------------------------------------</div>
<div># ver os dados</div>
<div><br>
</div>
<div>xtabs(~repeticao + bloco, da)</div>
<div>xtabs(~repeticao + cultivar, da)</div>
<div><br>
</div>
<div>xyplot(producao ~ cultivar, groups = bloco, data = da)</div>
<div>xyplot(producao ~ cultivar | repeticao, groups = bloco, data = da)</div>
<div>#-----------------------------------------------------------------------</div>
<div># ajuste do modelo de efeitos fixos para bloco dentro de repeticao</div>
<div><br>
</div>
<div>m0 <- lm(producao ~ repeticao/bloco + cultivar, data = da)</div>
<div><br>
</div>
<div>par(mfrow = c(2, 2))</div>
<div>plot(m0)</div>
<div>layout(1)</div>
<div><br>
</div>
<div><br>
</div>
<div># #Teste de normalidade</div>
<div># shapiro.test(residuals(m0))</div>
<div># #Teste de Bartlett</div>
<div># bartlett.test(residuals(m0)~cultivar, data=da)</div>
<div><br>
</div>
<div>anova(m0) # cultivar nao ajustado para blocos</div>
<div>#-----------------------------------------------------------------------</div>
<div>#Só arrumar ordem dos termos</div>
<div>m0 <- lm(terms(producao ~ repeticao/bloco + cultivar,</div>
<div> keep.order = TRUE),</div>
<div> data = da)</div>
<div>anova(m0)</div>
<br>
</div>
<div style="font-family:"Palatino Linotype","Book Antiqua",Palatino,serif; font-size:12pt; color:rgb(0,0,0)">
<br>
</div>
<div id="signature">
<div id="divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Garamond,Georgia,serif">
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b>Euriann L. M. Yamamoto</b></font></div>
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b>Doutoranda em Agronomia</b></font></div>
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b>Universidade Federal da Grande Dourados</b></font></div>
<div style="text-align:left"><font size="3" face="Garamond" style="font-size:12pt"><b><br>
</b></font></div>
<div style="text-align:center"><br>
</div>
<div style="text-align:center"><br>
</div>
<div><font color="#2672EC" size="3" style="font-size:12pt"><br>
</font></div>
</div>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>De:</b> Walmes Zeviani <walmeszeviani@gmail.com><br>
<b>Enviado:</b> terça-feira, 17 de outubro de 2017 19:53<br>
<b>Para:</b> Euriann Yamamoto<br>
<b>Assunto:</b> Re: [R-br] Látice parcialmente balanceado em vários locais</font>
<div> </div>
</div>
<div>
<div dir="ltr">
<div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Não sei te responder com segurança. Testa e vê no que dá, rs. É bem provável que precise de adaptações, ainda que mínimas.<br>
</div>
<div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br>
</div>
<div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br>
</div>
</div>
</div>
</div>
</body>
</html>