<div dir="ltr"><div>Caros,</div><div>Recebi os dados de um experimento sem a orientação prévia de um profissional </div><div>da área de Estatística.</div><div><br></div><div>Foram seis grupos de plantas, sendo que cada grupo tinha inicialmente 15 plantas.</div><div><br></div><div>Um desses grupos foi o controle e em cada um dos outros cinco grupos foi  aplicado um regulador de crescimento (hormônio).</div><div><br></div><div>O esquema de aplicação/avaliação  de cada tratamento foi o seguinte:</div><div><br></div><div>1. Tempo zero: aplicação de cada um dos reguladores nos grupos;</div><div><br></div><div>2. Após 7 dias, sorteio de  5 plantas por grupo e realizadas as medições</div><div><br></div><div>3. 7 dias depois, aplicação dos hormônios nas 10 plantas restantes</div><div><br></div><div>4. 7 dias depois, sorteio de 5 plantas por grupo e realizadas as medições</div><div><br></div><div>5. 7 dias depois, aplicação dos hormônios nas 5 plantas restantes</div><div><br></div><div>6. 7 dias depois, medições nas 5 plantas restantes.</div><div><br></div><div>Em cada avaliação foram analisadas as variáveis resposta: altura, comprimento da raiz, peso de folhas, ...</div><div>O objetivo é avaliar qual dos hormônios produziu melhores resultados ao longo do tempo.</div><div>Fiz alguns gráficos e ajustei um modelo considerando um fatorial duplo. </div><div>Devido a forma como foi realizado o delineamento, não sei se o fatorial é adequado.</div><div>Alguém tem sugestões de como analisar estes dados?</div><div><div><br></div><div><a href="https://www.dropbox.com/s/lkhzb87gh1vtgas/dados.txt?dl=0">https://www.dropbox.com/s/lkhzb87gh1vtgas/dados.txt?dl=0</a><br></div><div><br></div><div><div>dados = read.table("dados.txt",sep="",header=TRUE)</div><div><br></div><div>attach(dados)</div><div>summary(dados)<br></div><div><br></div><div><div>plot(altura~hormonio)<br></div><div>plot(altura~tempo)</div></div><div><br></div><div>require(latticeExtra)</div><div>xyplot(altura~hormonio|tempo)</div><div>xyplot(altura~tempo|hormonio)</div><div><br></div><div>modelo = aov(altura ~ hormonio*tempo)</div><div>summary(modelo)</div><div>plot(modelo)</div><div>residuos = modelo$residuals</div><div>shapiro.test(residuos)</div></div></div><div><br></div><div><br></div></div>