Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anterior Revisão anterior Próxima revisão | Revisão anterior | ||
|
cursos:ruel:sessao3 [2007/12/18 01:16] paulojus |
cursos:ruel:sessao3 [2007/12/18 01:19] (atual) paulojus |
||
|---|---|---|---|
| Linha 10: | Linha 10: | ||
| **Conteúdo de óleo de //S. linicola//, em percentagem, em vários estágios de crescimento (Steel \& Torrie, 1980, p.199).** | **Conteúdo de óleo de //S. linicola//, em percentagem, em vários estágios de crescimento (Steel \& Torrie, 1980, p.199).** | ||
| - | ^Estágios ^ Blocos ^^ | + | ^Estágios ^ Blocos ^^^^ |
| | | I | II | III | IV | | | | I | II | III | IV | | ||
| |Estágio 1 | 4,4 | 5,9 | 6,0 | 4,1 | | |Estágio 1 | 4,4 | 5,9 | 6,0 | 4,1 | | ||
| Linha 71: | Linha 71: | ||
| </code> | </code> | ||
| - | Nos gráficos e resultados acima procuramos captar os principais aspectos dos dados bem como verificar se não há intera\c{c}ão entre blocos e tratamentos, o que não deve acontecer neste tipo de experimento. | + | Nos gráficos e resultados acima procuramos captar os principais aspectos dos dados bem como verificar se não há interação entre blocos e tratamentos, o que não deve acontecer neste tipo de experimento. |
| A seguir vamos ajustar o modelo e obter outros resultados, incluindo a análise de resíduos e testes para verificar a validades dos pressupostos do modelo. | A seguir vamos ajustar o modelo e obter outros resultados, incluindo a análise de resíduos e testes para verificar a validades dos pressupostos do modelo. | ||
| Linha 102: | Linha 102: | ||
| qqline(residuos) | qqline(residuos) | ||
| title("Grafico Normal de \n Probabilidade dos Resíduos") | title("Grafico Normal de \n Probabilidade dos Resíduos") | ||
| + | </code> | ||
| - | ## teste para normalidade | + | Teste para normalidade |
| + | <code R> | ||
| shapiro.test(residuos) | shapiro.test(residuos) | ||
| - | + | </code> | |
| - | ## Testando a não aditividade | + | Testando a não aditividade: |
| - | ## primeiro vamos extrair coeficientes de tratamentos e blocos | + | Primeiro vamos extrair coeficientes de tratamentos e blocos |
| + | <code R> | ||
| ex02.av$coeff | ex02.av$coeff | ||
| bl <- c(0, ex02.av$coeff[2:4]) | bl <- c(0, ex02.av$coeff[2:4]) | ||
| Linha 113: | Linha 116: | ||
| bl | bl | ||
| tr | tr | ||
| + | </code> | ||
| - | ## agora criar um novo termo e testar sua significancia na ANOVA | + | e agora criar um novo termo e testar sua significancia na ANOVA |
| + | <code R> | ||
| bltr <- rep(bl, 6) * rep(tr, rep(4,6)) | bltr <- rep(bl, 6) * rep(tr, rep(4,6)) | ||
