Walmes Marques Zeviani

"Experiência não é o que acontece com você, mas o que você fez com o que lhe aconteceu." (Aldous Huxley)

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)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes@ufpr.br / walmes@leg.ufpr.br
homepage: http://www.leg.ufpr.br/~walmes
============================================================

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

• 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".
• Download do LaTable para confecção de tabelas para Latex (http://www.leg.ufpr.br/~walmes/docs/LaTable.exe).
  A versão disponível para Download tem compatibilidade com o wine e portanto pode ser usada por usuários Linux (usando o wine). Nos casos em as tabelas estão prontas em editores de texto (e.g. OpenOffice-Writer) ou em planilhas eletrônicas (e.g. OpenOffice-Calc) pode-se colar o conteúdo da tabela em um arquivo de extensão *txt e importar pelo LaTable. No LaTable é possível fazer a formatação de alinhamento de colunas e inserção linhas verticais e horizontais, usadas, em geral, para separar o cabeçalho da tabela do restante. Depois da edição é só copiar, em formato Latex, o conteúdo da tabela para área de transferência e colar no seu editor.
• Zotero: plugin do Firefox para extração de meta-dados de páginas de internet para criação de referências bibliográficas (http://www.zotero.org/).
  Zotero é capaz de extrair os metadados de sites da internet e produzir referências bibliográficas em diversos formatos. Sites Amazon.com (de venda de livros) e o ScienceDirect (para busca de artigos) são alguns dos compatíveis com o plugin. Basta fazer a busca por um livro/artigo no site que um ícone irá aparecer na sua barra de endereços. Ao clicar no ícone (que será um livro de capa azul no caso de livros) os metadados serão organizados pelo zotero. Para acessar os metadados, clica-se no nome "zotero" que fica no canto inferior direito do seu Firefox. Pode-se exportar as referências dos livros/artigos (e outros tipos de publicação) para diversos formatos, inclusive para o formato usado pelo bibtex, além de formatos para OpenOffice-Writer, html, etc. Mais detalhes consultar a documentação no site do plugin. Consulte também: tutorial em pdf, descrição, video.
• Para converter as figuras em formato *pdf de um diretório para *jpg e fazer um zip delas no final (dica Linux). Salvar num arquivo com extensão *sh (e.g. converter.sh), dentro do diretório das figuras, o conteúdo abaixo (o tipo de aspas é importante)

for file in `ls *.pdf`
do
   convert $file `echo $file | sed 's/\.pdf$/\.jpg/'`
done
zip todojpg.zip *.jpg
rm *.jpg

$ chmod +x ./converter.sh
$ converter.sh

• Para fazer uma busca de uma expressão reugular dentro de uma árvore de diretórios apenas nos arquivos de determinada extensão. No caso, abaixo está ilustrada a procura dos arquivos de extensão R que possui a palavras 'try'

grep -r --include=*.R 'try' *

#==========================================================================================
 
library(gWidgetsRGtk2)
 
da <- data.frame(x=1:20)
da$y <- 10*da$x/(3+da$x)+rnorm(da$x,0,0.2)
plot(y~x, data=da)
curve(10*x/(3+x), add=TRUE)
 
limits <- list(A=c(0,20), B=c(0,6), n=c(0,2))
 
plotMM <- function(...){
  plot(y~x, data=da)
  curve(svalue(A)*x^svalue(n)/(svalue(B)+x), add=TRUE)
  legend("topleft", paste(with(da, sum((y-svalue(A)*x/(svalue(B)+x))^2))), bty="n")
}
 
#func1 <- function(limits){
  w <- gwindow("Slider and spinbox example")
  tbl = glayout(cont=w)
  for(i in 1:length(limits)){
    tbl[i,1] <- paste("Slide to adjuste parameter", names(limits)[i])
    tbl[i,2, expand=TRUE] <- (assign(names(limits)[i],
               gslider(from=limits[[i]][1],
                       to=limits[[i]][2],
                       by=diff(limits[[i]])/20,
                       value=mean(limits[[i]]),
                       container=tbl, handler=plotMM)))
  }
#}
#func1(limits)
plotMM()
 
#==========================================================================================

• Página da disciplina para as turmas N2 e N3;
• Histórico das aulas para as tumas N2 e N3
• Download da primeira avaliação de Estatística Básica com gabarito.
• Download das notas e faltas referentes ao período até a primeira avaliação.
• Download da lista com exercícios referentes ao conteúdo da segunda avaliação.
• Download dos resultados dos exercícios referentes ao conteúdo da segunda avaliação.
• Download das notas e faltas referentes ao período até a segunda avaliação.
• Download da lista com exercícios referentes ao conteúdo da terceira avaliação.
• Download das tabelas estatísticas (da normal, da t e outras).

#==========================================================================================
# Gráficos do Milson
#==========================================================================================
 
require(lattice)
 
#------------------------------------------------------------------------------------------
# importando arquivo do site
 
walmes <- read.table("http://www.leg.ufpr.br/~walmes/docs/walmestodas.txt", header=TRUE, sep="\t")
walmes$data2 <- as.character(walmes$data)
walmes$umipad <- as.numeric(walmes$umipad)
walmes$localposi <- with(walmes, paste(local, posi, sep=" - "))
str(walmes)
 
#------------------------------------------------------------------------------------------
 
dados <- subset(walmes, local%in%levels(walmes$local)[c(2,5)])
ylim <- with(dados, tapply(umipad, list(local), extendrange, f=-0.03))
ylim <- ylim[c(2,5)]
 
w <- 18             # largura da figura (cm)
f <- 12/13.5        # relação altura/base
cmtopx <- 2000/25.4 # conveter de cm para pixel
png("tudo.png", width=w*cmtopx, height=w*cmtopx*f, res=200)
xyplot(umipad~as.POSIXct(data2, format="%d/%m/%Y")|localposi,
       data=dados, col=1, lty=1:5, lwd=1,
       groups=prof, type="l", layout=c(2,2),
       ylab="Umidade padronizada",
       xlab="Data da coleta",
       strip=strip.custom(bg="gray90"),
       key=list(columns=5,
         text=list(paste(gsub(".",",",as.character(unique(dados$prof)),fixed=TRUE), "m", sep=" ")),
         lines=list(lty=1:5, col=1, lwd=1)),
       ylim=rep(ylim, each=2),
       scales=list(
         y=list(alternating=3, relation="free",
           at=list(c(NA),c(NULL),c(NA),c(NULL))),
         x=list(alternating=1, at=unique(as.POSIXct(dados$data2, format="%d/%m/%Y")), rot=90,
           labels=unique(format(dados$data2, format="%d/%m/%Y")))),
       par.settings=list(grid.pars=list(fontfamily="serif", cex=1),
         layout.widths=list(axis.panel=rep(c(1,0), c(1,1)))),
       panel=function(x, y, subscripts, groups, ...){
         panel.xyplot(x, y, subscripts=subscripts, groups=groups, ...)
         panel.abline(h=c(0,1), lty=1:2, col=1, lwd=1)
       }
       )
dev.off()
 
#------------------------------------------------------------------------------------------
 
dados <- subset(walmes, local%in%levels(walmes$local)[c(1,3,4)])
ylim <- with(dados, tapply(umipad, list(local), extendrange, f=-0.03))
ylim <- ylim[c(1,3,4)]
 
w <- 18              # largura da figura (cm)
f <- 12/13.5         # relação altura/base
cmtopx <- 2000/25.4  # conveter de cm para pixel
png("tudo2.png", width=w*cmtopx, height=w*cmtopx*f, res=200)
xyplot(umipad~as.POSIXct(data2, format="%d/%m/%Y")|localposi,
       data=dados, col=1, lty=1:5, lwd=1,
       groups=prof, type="l", layout=c(2,3),
       ylab="Umidade padronizada",
       xlab="Data da coleta",
       strip=strip.custom(bg="gray90"),
       key=list(columns=5,
         text=list(paste(gsub(".",",",as.character(unique(dados$prof)),fixed=TRUE), "m", sep=" ")),
         lines=list(lty=1:5, col=1, lwd=1)),
       ylim=rep(ylim, each=2),
       scales=list(
         y=list(alternating=3, relation="free",
           at=list(c(NA),c(NULL),c(NA),c(NULL),c(NA),c(NULL))),
         x=list(alternating=1, at=unique(as.POSIXct(dados$data2, format="%d/%m/%Y")), rot=90,
           labels=unique(format(dados$data2, format="%d/%m/%Y")))),
       par.settings=list(grid.pars=list(fontfamily="serif", cex=1),
         layout.widths=list(axis.panel=rep(c(1,0), c(1,1)))),
       panel=function(x, y, subscripts, groups, ...){
         panel.xyplot(x, y, subscripts=subscripts, groups=groups, ...)
         panel.abline(h=c(0,1), lty=1:2, col=1, lwd=1)
       }
       )
dev.off()
 
#------------------------------------------------------------------------------------------

<object width="636" height="516"><embed src="http://www.youtube.com/v/tDAB6BIz5nQ?version=3" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="636" height="516"></embed></object>

http://www.guitarbackingtrack.com/search.php
http://www.youtube.com/user/creativeguitarstudio

• Apostila do Curso (download);
• Dados usados durante Curso (download);