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:26] walmes [section 8] |
pessoais:walmes:cursorufgd [2012/04/03 22:14] (atual) walmes [section 16] |
||
---|---|---|---|
Linha 285: | Linha 285: | ||
---- | ---- | ||
+ | ==== Seminário sobre modelos de regressão ==== | ||
+ | |||
+ | [[http://www.leg.ufpr.br/~walmes/docs/modelos-regressao-walmes.pdf|{{ :pessoais:walmes:mod-reg.png?200|}}]] Slides do seminário {{http://www.leg.ufpr.br/~walmes/docs/modelos-regressao-walmes.pdf|Modelos de regressão: teoria e aplicação nas ciências agrárias}} oferecido aos acadêmicos do grupo PET-Agronomia e PET-Zootecnia (12:00-13:00h, 29/04/2011, FCA/UFGD). O seminário abordou aspectos históricos, cotidianos, apresentou as classes de modelos, técnicas de estimação, interpretação dos modelos, escolha do modelo, e apresentou 4 aplicações de modelos de regressão em ciências agrárias. | ||
+ | |||
+ | ---- | ||
==== Pacotes necessários a serem instalados ==== | ==== Pacotes necessários a serem instalados ==== | ||
Linha 368: | 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 397: | 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}}; | ||
---- | ---- |