Essa é uma revisão anterior do documento!
Tabela de conteúdos
Walmes Marques Zeviani
"Experiência não é o que acontece com você, mas o que você fez com o que lhe aconteceu." (Aldous Huxley)
"Feliz é aquele que transfere o que sabe e aprende o que ensina." (Cora Coralina)
Engenheiro Agronômo pela Universidade Federal da Grande Dourados (2007) e Mestre em Estatística & Experimentação Agropecuária pela Universidade Federal de Lavras (2009). Doutorando do Programa de Pós-Graduação em Estatística & Experimentação Agropecuária - Professor Assistente I do Departamento de Estatística da Universidade Federal do Paraná (aprovado por Concurso e contratado em Julho 2010) onde atualmente leciona.
========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná Edifício da Administração - 3º andar - Centro Politécnico Curitiba - PR CEP: 81.531-990 Bairro: Jardim das Américas Caixa Postal: 19.081 fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
Dissertação de Mestrado
Avaliação de modelos de regressão não linear na cinética de liberação de potássio de resíduos orgânicos
Resumo: O potássio (K) é um elemento químico muito exigido pelas culturas, porém, sua ocorrência e disponibilidade em alguns solos brasileiros são inferiores à demanda pelas plantas. Seu fornecimento também pode ser feito a partir de fontes orgânicas de maneira eficiente, quando se conhece o padrão de liberação do nutriente. Modelos não lineares são adequados nessas situações, uma vez que estimam quantidades de interesse prático e apresentam boa qualidade de ajuste. Embora seu processo inferencial seja baseado em argumentos assintóticos, existem meios de se conhecer a intensidade da não linearidade. Neste trabalho avaliou-se a não linearidade, por meio das curvaturas de Bates & Watts, vício de Box e estudo das propriedades amostrais dos estimadores de mínimos quadrados por simulação, de dois modelos de regressão não linear. Tais modelos estimam o conteúdo de K prontamente liberável, o tempo de meia vida para a sua liberação e a taxa de liberação do K de lenta liberação. Os dados são provenientes do estudo, ao longo do tempo, da liberação de K de 11 resíduos orgânicos incubados em combinação com 3 tipos de solo. O modelo exponencial apresentou estimativas mais precisas para os parâmetros que o quociente e maior aproximação entre os resultados assintóticos e obtidos por simulação. O modelo exponencial foi mais adequado, em termos inferenciais e para aplicação prática, uma vez que, por todas as medidas, apresentou menor não linearidade.
Palavras-chaves: Curvatura de Bates e Watts. Vício de Box. Bootstrap. Tempo de meia vida.
Banca de Defesa:
Prof. Dr. Joel Augusto Muniz (Orientador) - UFLA
Prof. Dr. Carlos Alberto Silva (co-orientador) - UFLA
Profa. Dra. Taciana Villela Savian - UFLA
Prof. Dr. Luiz Alberto Beijo - UNIFAL-MG
Aprovada em 18 de setembro de 2009
Tese de Doutorado (em andamento)
Pre-título: Modelagem da curva característica de água para solos com distribuição bimodal de poros
Artigo 1: Modelos de regressão não linear para representar a curva característica de solos com distribuição de poros bimodal. Fazer estudo/elaboração de modelos que tenham dois pontos de inflexão, ou seja, cuja derivada apresente dois pontos de máximo. Estudar a interpretação dos parâmetros desses modelos, o grau de não linearidade e o impacto das inferências em pequenas amostras. Estudar a identificabilidade dos modelos para amostras de tamanho pequeno apontando estratégias para aquisição de dados (delineamento ótimo). Aplicar reparametrizações para tornar o modelo melhor comportado. Aplicar inferência por verossimilhança. Usar os dados do Eduardo.
Artigo 2: Estimação da curva característica de água do solo em função de fatores experimentais. Colocar os parâmetros do modelo de regressão em função dos fatores experimentais e conduzir testes de hipótese. Não observamos os parâmetros do modelo, nos observamos dados. Mas queremos aplicar inferência aos parâmetros e temos estimativas destes. Usar dados do Milson. Dada a quantidade grande de parâmetros estimados aqui, que depende do número de níveis dos fatores experimentais, vale a pena se pensar em escrever o modelos parcialmente linear, identificando os parâmetros que são lineares e deixando apenas os demais presentes do processo de otimização da função objetivo.
Artigo 3: Modelagem da curva característica de água no solo por modelos mistos e inclusão de covariáveis. Estimar a curva considerando o efeito aleatório de amostra, a correlação entre medidas, a inclusão da covariável densidade do solo. Apresentar as expressões da verossimilhança para os modelos, os teste de rezão de verossimilhança e as conclusões a respeito das hipóteses. Usar dados do Eduardo e geoR::wrc.
Artigo 4: Como fazer inferência sobre o parâmetro S. Estimar o parâmetro S dos solos e associar imprecisão. Aplicar inferência clássica com método delta e inferência bayesiana.
Ensino
Disciplinas já ofertadas e em andamento. Clique na turma para ir para a página da disciplina onde estão disponíveis o histórico das aulas, provas, gabaritos, listas de exercícios e notas.
Disciplina | Curso | Turma | Ano | Semestre |
---|---|---|---|---|
Estatística Básica (CE-003 - Estatística II) | Administração | N2 | 2010 | 2º |
Estatística Básica (CE-003 - Estatística II) | Administração | N3 | 2010 | 2º |
Estatística Básica (CE-003 - Estatística II) | Engenharia Cívil | B | 2011 | 1º |
Estatística Computacional (CE-223) | Estatística | Única | 2011 | 1º |
Estatística Básica (CE-002 - Estatística I) | Agronomia | B | 2011 | 2º |
Estatística Computacional I (CE-083) | Estatística | A e B | 2011 | 2º |
Estatística Básica (CE-002 - Estatística I) | Agronomia | B | 2012 | 1º (em andamento) |
Estatística Computacional I (CE-083) | Estatística | EST | 2012 | 1º (em andamento) |
Cursos de R
- Curso para Engenharia de Alimentos e Engenharia Química da UFPR (2010);
- Apostila do Curso (download);
- Dados usados durante Curso em planilha eletrônica (*.xls) (download);
- Dados usados durante Curso em arquivos de texto (*.txt) compactados (*.zip) (download);
- Questionário do curso (responder);
Blog
Blog que administro e mantenho com a colaboração de amigos também apaixonados pelo R. Clique na figura ao lado para ir para o blog.
Seminários
- preencher -
Publicações
Consultor
- Revista de Ciências Agrárias / Amazonian Journal of Agricultural and Environmental Sciences;
Artigos publicados em periódicos
Artigos publicados em Congressos
- SOUZA, F. R., ; FIETZ, C. R. ; ROSA JUNIOR, E. J. ; BERGAMIN, A. C. ; ZEVIANI, W. M. ; SILVA, W. M. . Atributos químicos do solo sob dois sistemas de manejo e efeito residual de gesso após 55 meses de implantação. In: Congresso Brasileiro de Ciência do Solo, 2009, Fortaleza-CE. XXXII Congresso Brasileiro de Ciência do Solo. O solo e a produção de Bioenergia: perspectivas e desafios, 2009.
- CARDUCCI, C. E. ; VITORINO ; ZEVIANI, W. M. ; GARBIATE, M. V. . Análise Macromorfométrica e Atributos Físicos de um Latossolo Vermelho Distroférrico sob Diferentes Sistemas de Manejo na Região de Dourados MS. In: 2 Encontro de Iniciação Científica UFGD/UEMS, 2008, Dourados-MS. 2 Encontro de Iniciação Científica UFGD/UEMS. dourados-MS : Universidade Federal da Grande Dourados, 2008. v. 1. p. 1.
- ZEVIANI, W. M. ; CARDUCCI, C. E. ; TACIANA, V. S. ; MUNIZ, J.A. . Avaliação da dinâmica de secagem de solo em microondas por meio de regressão não-linear.. In: XI Escola de Modelos de Regressão, 2009, Recife
PB. Programa e Resumos da XI Escola de Modelos de Regressão. Recife-PB, 2009. * CARDUCCI, C. E. ; VITORINO ; ZEVIANI, W.M. ; SERAFIM, M. E. ; INOCENCIO, M. F. . Análise de imagens de agregados de um Latossolo Vermelho distroférrico sob diferentes manejos. In: XXXII Congresso Brasileiro de Ciências do Solo:o solo e a produção de bioenergiaperpectivas e desafios, 2009, Fortaleza-CE. XXXII Congresso Brasileiro de Ciências do Solo:o solo e a produção de bioenergia- perpectivas e desafios RESUMOS. Viçosa - MG : SBCS, 2009. v. 1. p. 81. - CARDUCCI, C. E. ; VITORINO ; ZEVIANI, W.M. ; INOCENCIO, M. F. . Resistência ao cisalhamento de um solo submetido a diferentes usos e manejos utilizando o método Vane. In: XXXII Congresso Brasileiro de Ciências do Solo: o solo e a produção de bioenergia - perpectivas e desafios, 2009, Fortaleza-CE. XXXII Congresso Brasileiro de Ciências do Solo: o solo e a produção de bioenergia - perpectivas e desafios RESUMOS. Viçosa-MG : SBCS, 2009. v. 1. p. 81.
- ZEVIANI, W.M. ; SERAFIM, M. E. ; CARDUCCI, C. E. ; OLIVEIRA, G. C. ; MUNIZ, J.A. . Avaliação de critérios de seleção das tensões para determinação da curva característica de água no solo por meio do modelo van Genutchten. In: XXXII Congresso Brasileiro de Ciências do Solo: o solo e a produção de bioenergia - perpectivas e desafios, 2009, Fortaleza-CE. XXXII Congresso Brasileiro de Ciências do Solo: o solo e a produção de bioenergia - perpectivas e desafios RESUMOS. VIÇOSA-MG : SBCS, 2009. v. 1. p. 212.
- SERAFIM, M. E. ; ONO, F. B. ; VITORINO ; CARDUCCI, C. E. ; CREMON, C. ; ZEVIANI, W. M. . Caracterização Micromorfométrica De Agregados De Um Latossolo Vermelho Distroférrico sob Pastagem. In: XVII Reunião Brasileira de Maanejo e Conservação do Solo e da Água, 2008, Rio de Janeiro- RJ. XVII Reunião Brasileira de Manejo e Cnservação do Solo e da Água. Rio de Janeiro-RJ, 2008. v. 1.
- preencher -
Participação em Projetos/Grupos de Pesquisa
- Projeto com Larissa (http://lattes.cnpq.br/5306520242222948);
- Projeto com Maristella (http://lattes.cnpq.br/7578795880165011);
- Projeto com Eduardo (http://lattes.cnpq.br/0288146552740769);
- Projeto com Rafael (http://lattes.cnpq.br/3314759970388496);
- Grupo com PJ;
Atividades regulares semanais
1° semestre 2011 | |||||
---|---|---|---|---|---|
HORÁRIO | SEG | TER | QUA | QUI | SEX |
08:00 - 09:00 | |||||
09:00 - 10:00 | |||||
10:20 - 11:00 | |||||
11:00 - 12:00 | |||||
12:00 - 13:30 | |||||
13:30 - 14:00 | ce002 | ||||
14:00 - 15:30 | ce002 | ||||
15:30 - 16:00 | ce002 | ||||
16:00 - 17:30 | ce002 | ||||
17:30 - 18:00 | ce083 | ce083 | |||
18:00 - 19:30 | ce083 | ce083 | |||
19:30 - 20:00 | |||||
20:00 - 21:00 | |||||
21:30 - 22:00 | |||||
22:00 - 23:30 |
Localização e acesso ao LEG
O acesso ao LEG se dá pela escada/rampa localizada na face norte do bloco de Informática. Ao entrar pelo corredor do antigo salão de provas, procure por uma porta sinalizada do lado direito. Clique aqui para abrir a nossa localização em uma nova página com seta de indicação.
<googlemap width="533px" height="400px" lat="25.450603" lon="-49.231759" type="hybrid" zoom="19">
</googlemap>
—
Dicas de Linux
- Site para produzir expressões matemáticas em latex (http://www.codecogs.com/latex/eqneditor.php). Permite a construção online de expressões matemáticas em código Latex, que podem ser copiadas e coladas no seu editor. O usuário tem opção de usar os menus com expressões pré
definidas, tais como matrizes, sistema de equações, derivadas, somatórios, simbologia de conjuntos, letras gregas, etc. Expressões comuns estão organizadas no botão "exemplos". ==== Playground ==== Faça o download do script abaixo aqui: script.R. <code R> #============================================================================= # Uso dos escores de uma análise de fatorial como variável dependente em um # modelo linear de experimento #============================================================================= #
# lê os dados e remove NA
da ← read.table("http://www.leg.ufpr.br/~walmes/cursoR/cnpaf/mudas2.txt",
header=TRUE, sep=";")
str(da) da ← da[complete.cases(da),] da$trat ← factor(da$trat) # atualiza os níveis de trat da$bloc ← factor(da$bloc) # passa bloc para fator str(da)
#-
# experimento com mudas de caju em função de categorias de subtrato, arranjado
# em blocos ao acaso com 20 plantas por unidade experimental. Foram observados
# os valores individuais de cada planta que sobreviveram (viab=1). Com isso o
# surge desbalanceamento à nível de plantas.
#-
# análise de variância para alt segundo o modelo experimental
m0 ← aov(alt~bloc+trat+Error(bloc:trat), data=da) summary(m0)
#-
# análise para todas as demais
m00 ← lapply(as.list(da[,c(1:4)]),
function(x){
m0 ← aov(x~bloc+trat+Error(bloc:trat), data=da)
m0
})
lapply(m00, summary) # trat não significativo para todas as variáveis
#
# rodando análise fatorial, dados padronizados
X ← scale(as.matrix(da[,5:14])) str(X) pairs(X)
cor(X) ei ← eigen(cor(X)) cumsum(ei$values)/sum(ei$values)
#-
# obtenção dos fatores
nfat ← 3 af ← factanal(X, factors=nfat,
scores="regression", rotation="varimax")
print(af$loadings, cutoff=0.5, sort=TRUE) # fator 1 - do caule: altura, diâmetro, massa seca e fresca # fator 2 - das raízes: massa seca e fresca # fator 3 - das folhas: massa seca e fresca
# comunalidade, 1-variância específica 1-sort(af$uniqueness)
# escores S ← af$scores plot(S)
#-
# analisar os scores do 1 ao 3 fator
m00 ← apply(S, 2,
function(x){ m0 <- aov(x~bloc+trat+Error(bloc:trat), data=da) m0 })
lapply(m00, summary) # trat significativo para os Fatores 2 e 3
#
# manova aplicada aos dados de *parcela* #
#-
# calcula as médias por bloc:trat para todas as variáveis
require(plyr) dam ← ddply(da[,5:14], .(trat=da$trat, bloc=da$bloc), mean) str(dam)
#-
# manova, quero a matriz de covariância livre dos efeitos fixos
ma0 ← aov(as.matrix(dam[,3:12])~bloc+trat, data=dam) anova(ma0) str(ma0)
#-
# matriz de covariância condicional
R ← residuals(ma0) str(R)
#-
# covariância e correlação resídual
cov(R) # é viesada porque tem denominador n-1 que é maior que n-p cor(R)
#-
# análise fatorial aplicada aos resíduos
nfat ← 3 af ← factanal(scale(R), factors=nfat,
scores="Bartlett", rotation="varimax")
print(af$loadings, cutoff=0.5, sort=TRUE) # fator 1 - ?sem sentido # fator 2 - ?sem sentido # fator 3 - ?sem sentido
# comunalidade, 1-variância específica 1-sort(af$uniqueness)
# escores S ← af$scores plot(S)
#-
# analisar os scores do 1 ao 3 fator
m00 ← apply(S, 2,
function(x){ m0 <- aov(x~bloc+trat, data=dam) m0 })
lapply(m00, summary) # trat significativo para os Fatores 2 e 3
# não tem efeito porque eu removi o efeito antes da análise fatorial # então explorei a relação entre as variâncias condicionais, que são # livres do efeitos fixos. # teria como eu obter os escores dos dados originais, baseados na # covariância dos resíduos?
#-
# devolvendo o efeito dos fatores fixos
# usando o preditor de mínimos quadrados, Daniel pg 527, equação 11.7.2
Psi ← cov(R) Gamma ← t(af$loadings[,1:nfat]) F ← solve(Gamma%*%solve(Psi)%*%t(Gamma))%*%(Gamma%*%solve(Psi)%*%t(dam[,3:12])) F ← t(F)
m00 ← apply(F, 2,
function(x){ m0 <- aov(x~bloc+trat, data=dam) m0 })
lapply(m00, summary) # trat significativo para os Fatores 2 e 3
#-
</code>
Tikz lista de links
Lista com links sobre tikz