| Ambos lados da revisão anteriorRevisão anteriorPróxima revisão | Revisão anterior |
| pessoais:walmes:cursorcpao [2012/06/28 09:03] – [section 5] walmes | pessoais:walmes:cursorcpao [2012/06/29 23:57] (atual) – [Materiais do curso] walmes |
|---|
| ==== Descrição ==== | ==== Descrição ==== |
| |
| Curso ministrado pelo Professor M.Sc. [[http://www.leg.ufpr.br/doku.php/pessoais:walmes|Walmes Marques Zeviani]] aos Pesquisadores da [[http://www.cpao.embrapa.br/|Embrapa Agropecuária Oeste]]. O Curso tem o objetivo de apresentar o programa R e sua aplicação na análise de dados de experimentos agronômicos dando enfase no tratamento de experimentos não regulares, ou seja, aqueles que apresentam desvios de pressupostos do modelo de análise de variância/regressão. O Curso será ministrado na [[https://maps.google.com.br/maps?daddr=-22%C2%B0+16'+27.35%22,+-54%C2%B0+49'+0.71%22+(-22.274264,+-54.816864)&hl=pt-BR&ie=UTF8&ll=-22.274443,-54.81755&spn=0.011715,0.01929&sll=-22.274423,-54.816928&sspn=0.011715,0.01929&geocode=CWgapj0foQQVFSgfrP4doI-7_A&t=h&mra=mift&z=16|sede]] Embrapa Arroz e Feijão no período de 25 à 29 de junho de 2012, das 08:00 às 11:00 e 13:00 às 16 horas, perfazendo um total de 30 horas de Curso. | Curso ministrado pelo Professor M.Sc. [[http://www.leg.ufpr.br/doku.php/pessoais:walmes|Walmes Marques Zeviani]] aos Pesquisadores da [[http://www.cpao.embrapa.br/|Embrapa Agropecuária Oeste]]. O Curso tem o objetivo de apresentar o programa R e sua aplicação na análise de dados de experimentos agronômicos dando enfase no tratamento de experimentos não regulares, ou seja, aqueles que apresentam desvios de pressupostos do modelo de análise de variância/regressão. O Curso será ministrado na [[https://maps.google.com.br/maps?daddr=-22%C2%B0+16'+27.35%22,+-54%C2%B0+49'+0.71%22+(-22.274264,+-54.816864)&hl=pt-BR&ie=UTF8&ll=-22.274443,-54.81755&spn=0.011715,0.01929&sll=-22.274423,-54.816928&sspn=0.011715,0.01929&geocode=CWgapj0foQQVFSgfrP4doI-7_A&t=h&mra=mift&z=16|sede]] Embrapa Agropecuária Oeste no período de 25 à 29 de junho de 2012, das 08:00 às 11:00 e 13:00 às 16 horas, perfazendo um total de 30 horas de Curso. |
| |
| <googlemap width="1000px" height="400px" lat="-22.274264" lon="-54.816864" type="hybrid" zoom="16"> | <googlemap width="1000px" height="400px" lat="-22.274264" lon="-54.816864" type="hybrid" zoom="16"> |
| * Apresentação Prezi {{http://prezi.com/nldtrhcqyaql/estatistica-experimental/}}; | * Apresentação Prezi {{http://prezi.com/nldtrhcqyaql/estatistica-experimental/}}; |
| * Experimental Designs for Research in Education {{http://prezi.com/-nfyorqf2gyw/experimental-designs-for-research-in-education/}}; | * Experimental Designs for Research in Education {{http://prezi.com/-nfyorqf2gyw/experimental-designs-for-research-in-education/}}; |
| |
| <code R> | |
| #========================================================================================== | |
| # Curso de capacitação em Estatística Experimental com uso do R | |
| # Embrapa Agropecuária Oeste - Dourados/MS - de 25 à 29 de Junho de 2012 | |
| # Aula 4 - Regressão logistica e modelos aditivos generalizados | |
| # Walmes Marques Zeviani - LEG/UFPR | |
| #========================================================================================== | |
| |
| #------------------------------------------------------------------------------------------ | |
| # lendo dados de latência em pêssego | |
| |
| lat <- read.table("http://www.leg.ufpr.br/~walmes/data/chimarrita.txt", | |
| header=TRUE, sep="\t") | |
| str(lat) | |
| |
| #------------------------------------------------------------------------------------------ | |
| # ver | |
| |
| pairs(lat[,c("lesao48","lesao60","cor0","ida0","ms0","ss0","f0","b0")]) | |
| |
| pairs(lat[lat$fer=="sim",c("lesao48","lesao60","cor0","ida0","ms0","ss0","f0","b0")]) | |
| |
| #------------------------------------------------------------------------------------------ | |
| # ajuste do modelo com todas as variáveis | |
| |
| lat0 <- subset(lat, fer=="sim", | |
| select=c("lesao48","lesao60","cor0","ida0","ms0","ss0","f0","b0")) | |
| lat0 <- na.omit(lat0) | |
| |
| m0 <- lm(lesao60~cor0+ida0+ms0+ss0+f0+b0, data=lat0) | |
| par(mfrow=c(2,2)); plot(m0); layout(1) | |
| anova(m0) | |
| |
| m1 <- lm(lesao60~(cor0+ida0+ms0+ss0+f0+b0)^2, data=lat0) | |
| par(mfrow=c(2,2)); plot(m1); layout(1) | |
| anova(m1) | |
| drop1(m1, scope=.~., test="F") | |
| summary(m1) | |
| |
| m2 <- step(m1, k=2) # AIC | |
| anova(m2) | |
| summary(m2) | |
| |
| m3 <- step(m1, k=log(nrow(lat0))) # BIC | |
| anova(m3) | |
| summary(m3) | |
| |
| par(mfrow=c(2,2)); plot(m3); layout(1) | |
| |
| plot(lat0$lesao60~fitted(m3)) | |
| |
| summary(lat0) | |
| pred <- expand.grid(cor0=seq(24,112,l=20), ms0=seq(1,18,l=20), | |
| ss0=seq(3.5,9,l=3), b0=seq(9,15,l=3)) | |
| pred$y <- predict(m3, newdata=pred) | |
| |
| wireframe(y~cor0+ms0|ss0*b0, data=pred) | |
| |
| wire <- wireframe(y~cor0+ms0|ss0*b0, data=pred, drape=TRUE) | |
| |
| require(latticeExtra) | |
| |
| useOuterStrips(wire) | |
| |
| #------------------------------------------------------------------------------------------ | |
| # regressão logística | |
| |
| |
| </code> | |
| |
| |
| ---- | ---- |
| ---- | ---- |
| | |
| ==== Cronograma de atividades do Curso ==== | |
| |
| ^ Data ^ Conteúdo ^ | |
| | SEG 25 | Download, instalação, interfaces gráficas e documentação. Primeira sessão R, componentes da sessão, componentes do RStudio. Criação de objetos, seleção, importação de arquivos de texto. Análise de experimento em DIC e avaliação dos pressupostos. | | |
| | TER 26 | Análise de experimento em DBC com repetição desigual dentro das parcelas, uso de pesos na análise de variância. Análise de experimento fatorial usando o inverso da variância como pesos. Análise de experimento fatorial com fatores quantitativos. Ajuste de modelo de regressão não linear resposta-platô. | | |
| | QUA 27 | | | |
| | QUI 28 | | | |
| | SEX 29 | | | |
| |
| ---- | |
| |
| ==== Referências bibliográficas ==== | ==== Referências bibliográficas ==== |
