Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anteriorRevisão anteriorPró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, | **Conteúdo de óleo de //S. linicola//, em percentagem, | ||
| - | ^Estágios ^ Blocos ^ | + | ^Estágios ^ Blocos |
| - | ^ ^ I ^ II | + | | | I | II |
| - | ^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: | ||
| </ | </ | ||
| - | Nos gráficos e resultados acima procuramos captar os principais aspectos dos dados bem como verificar se não há intera\c{c}ão | + | Nos gráficos e resultados acima procuramos captar os principais aspectos dos dados bem como verificar se não há interação |
| 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(" | title(" | ||
| + | </ | ||
| - | ## teste para normalidade | + | Teste para normalidade |
| + | <code R> | ||
| shapiro.test(residuos) | shapiro.test(residuos) | ||
| - | + | </ | |
| - | ## Testando a não aditividade | + | Testando a não aditividade: |
| - | ## primeiro | + | Primeiro |
| + | <code R> | ||
| ex02.av$coeff | ex02.av$coeff | ||
| bl <- c(0, ex02.av$coeff[2: | bl <- c(0, ex02.av$coeff[2: | ||
| Linha 113: | Linha 116: | ||
| bl | bl | ||
| tr | tr | ||
| + | </ | ||
| - | ## 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)) | ||
