Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
| Ambos lados da revisão anteriorRevisão anterior | |||
| pessoais:walmes:cursorcpao [2012/06/29 23:57] – [section 7] walmes | pessoais:walmes:cursorcpao [2012/06/29 23:57] (atual) – [Materiais do curso] walmes | ||
|---|---|---|---|
| Linha 44: | Linha 44: | ||
| * Apresentação Prezi {{http:// | * Apresentação Prezi {{http:// | ||
| * Experimental Designs for Research in Education {{http:// | * Experimental Designs for Research in Education {{http:// | ||
| - | |||
| - | <code R> | ||
| - | # | ||
| - | # análise de dados binomial | ||
| - | |||
| - | trat <- gl(3, 8) | ||
| - | X <- model.matrix(~trat) | ||
| - | pars <- c(2,1,1) | ||
| - | nu <- X%*%pars | ||
| - | p <- exp(nu)/ | ||
| - | y <- rbinom(length(p), | ||
| - | |||
| - | dados <- data.frame(trat=trat, | ||
| - | |||
| - | g0 <- glm(cbind(y, | ||
| - | summary(g0) # se Residual Deviance/ | ||
| - | anova(g0, test=" | ||
| - | |||
| - | # | ||
| - | # como fazer testes de " | ||
| - | |||
| - | require(doBy) | ||
| - | popMeans(g0, | ||
| - | |||
| - | require(glht) | ||
| - | summary(glht(g0, | ||
| - | |||
| - | # | ||
| - | # experimento em bloco | ||
| - | |||
| - | dados <- expand.grid(bloco=gl(3, | ||
| - | X <- model.matrix(~bloco+trat, | ||
| - | pars <- c(1, 1.1,1.2, -1, | ||
| - | nu <- X%*%pars | ||
| - | |||
| - | p <- exp(nu)/ | ||
| - | dados$y <- rbinom(nrow(dados), | ||
| - | |||
| - | g0 <- glm(cbind(y, | ||
| - | summary(g0) | ||
| - | |||
| - | popMeans(g0, | ||
| - | |||
| - | summary(glht(g0, | ||
| - | |||
| - | # | ||
| - | </ | ||
| - | |||
| ---- | ---- | ||
