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:13] 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 | |
| - | ^Estágio 2 ^ 3,3 ^ 1,9 ^ 4,9 ^ 7,1 ^ | + | |Estágio 2 | 3,3 | 1,9 | 4,9 | 7,1 | |
| - | ^Estágio 3 ^ 4,4 ^ 4,0 ^ 4,5 ^ 3,1 ^ | + | |Estágio 3 | 4,4 | 4,0 | 4,5 | 3,1 | |
| - | ^Estágio 4 ^ 6,8 ^ 6,6 ^ 7,0 ^ 6,4 ^ | + | |Estágio 4 | 6,8 | 6,6 | 7,0 | 6,4 | |
| - | ^Estágio 5 ^ 6,3 ^ 4,9 ^ 5,9 ^ 7,1 ^ | + | |Estágio 5 | 6,3 | 4,9 | 5,9 | 7,1 | |
| - | ^Estágio 6 ^ 6,4 ^ 7,3 ^ 7,7 ^ 6,7 ^ | + | |Estágio 6 | 6,4 | 7,3 | 7,7 | 6,7 | |
| Inicialmente vamos entrar com os dados no **R**. | Inicialmente vamos entrar com os dados no **R**. | ||
| 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)) | ||
