<div dir="ltr"><div>Gostaria de contar com ajuda para os seguinte problema - analise conjunta</div><div>de 4 experimentos em blocos casualizados completos com 3 repetições</div><div><br></div><div>resp=c(109.30,124.00,100.00,87.45,115.12,93.10,95.60,101.00,98.50,</div>
<div>       68.00,47.00,78.00,118.00,141.60,117.70,112.30,91.30,125.65,115.00,</div><div>       109.00,97.50,104.00,78.00,87.00,117.70,127.20,116.50,108.00,156.70,</div><div>       93.10,83.00,111.50,114.00,128.00,65.00,84.00,122.50,114.60,129.00,</div>
<div>       108.00,99.75,135.40,111.00,140.00,83.50,89.00,88.50,60.00,126.60,</div><div>       112.00,123.60,103.20,113.00,158.50,130.00,119.00,87.50,74.00,82.00,67.00)</div><div>trat=gl(5,12,label=paste("N",1:5,sep="")) </div>
<div>exp<-rep(gl(4,3,label=paste("E",1:4,sep="")),5)</div><div>bloco<-rep(gl(3,1,label=paste("bloco",1:3,sep="")),20)</div><div>dados=data.frame(trat=trat,exp=exp,bloco=bloco,resp=resp)</div>
<div>mod = aov(resp ~ trat * exp + exp/bloco, data = dados)</div><div>summary(mod)</div><div><br></div><div><br></div><div>A declaração do modelo (mod) com a função aov testa tudo com o resíduo</div><div>(32 gl). Quero testar tratamento (trat) e experimento (exp) com a a interação trat*exp e</div>
<div>esta com o resíduo (32 gl). Como declarar os efeitos no modelo?</div><div><br></div><div><br></div>-- <br>Gilenio Borges Fernandes<div>Professor Associado III<br>Universidade Federal da Bahia<br>Instituto de Matemática<br>
Departamento de Estatística<br>Av. Adhemar de Barros, s/n – Ondina.<br>40.170-110 - Salvador - BA, Brasil<br>Tel.: (071)3283-6280/6336  Fax:  (071)3283-6276<br>URL: <a href="http://lattes.cnpq.br/6764860618464860" target="_blank">http://lattes.cnpq.br/6764860618464860</a><br>
</div>
</div>