Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

--- pessoais:walmes:cursorufgd [2011/04/30 02:52] – [section 12] walmes
+++ pessoais:walmes:cursorufgd [2012/04/03 22:14] (atual) – [section 16] walmes
@@ Linha 373: / Linha 373: @@
 quadro <- cbind(FV=rownames(anova(m1)), GL=anova(m1)[,"Df"], QMR)
 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 ====
@@ Linha 402: / Linha 414: @@
   * fazer uma enquete para avaliar a qualidade do curso.
 </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}};
 ----