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 | ||
|
pessoais:walmes:cursorufgd [2011/04/30 02:52] walmes [section 12] |
pessoais:walmes:cursorufgd [2012/04/03 22:14] (atual) walmes [section 16] |
||
|---|---|---|---|
| Linha 373: | Linha 373: | ||
| quadro <- cbind(FV=rownames(anova(m1)), GL=anova(m1)[,"Df"], QMR) | quadro <- cbind(FV=rownames(anova(m1)), GL=anova(m1)[,"Df"], QMR) | ||
| write.table(quadro, file="resumoanova.xls", quote=FALSE, row.names=FALSE, sep="\t") | write.table(quadro, file="resumoanova.xls", quote=FALSE, row.names=FALSE, sep="\t") | ||
| - | </code> | ||
| + | require(agricolae) | ||
| + | |||
| + | # aplica o teste de Tukey (aqui só para efeito principal de potássio) | ||
| + | # em caso de interação o procedimento é outro | ||
| + | tukey <- lapply(ajustes, | ||
| + | function(a){ | ||
| + | qmr <- anova(a)[,"Mean Sq"] | ||
| + | dfr <- anova(a)[,"Df"] | ||
| + | da <- a$model | ||
| + | t0 <- with(da, HSD.test(r, potassio, dfr, qmr)) | ||
| + | return(t0) | ||
| + | }) | ||
| + | </code> | ||
| ==== Lista de afazeres ==== | ==== Lista de afazeres ==== | ||
| Linha 402: | Linha 414: | ||
| * fazer uma enquete para avaliar a qualidade do curso. | * fazer uma enquete para avaliar a qualidade do curso. | ||
| </note> | </note> | ||
| + | |||
| + | * {{http://designcomputing.net/gendex/alpha/|ALPHA: Program for Constructing α-designs}}; | ||
| + | * {{http://cropscience.ch/?p=368|Field designs for replicated trials}}; | ||
| + | * {{http://www.stat.ncsu.edu/people/dickey/courses/st711/notes/Notes_pdf/Alpha%20Lattice%20designs.pdf|Alpha Lattice Designs}}; | ||
| ---- | ---- | ||
