• Graduado em Engenharia Agronômica - Eng Agronômica - UFPR

• e-mail: ederdbs@gmail.com / eder@leg.ufpr.br

• Currículo LATTES
• Arquivos

• Estatística Experimental
• Estatística Espacial
• GEM² Grupo de estudos em modelos mistos
• GWS Seleção Genômica Ampla Via ML REML INLA
• Script Modelo seleção Genótipo ambiente via REML ML INLA
• Script Regressão Linear - inferência via Mínimos quadrados, ML, REML, Gibbs, Metropolis, INLA, dclone … (Em construção)
• RJMCMC Reversible Jump MCMC Regressão Linear

• Simulation of Examine Distributions of Estimators of Variances and Ratios of Variances
• Estimation of Variance and Covariance Components
• C. R. Henderson: Contributions to Predicting Genetic Merit
• Rapid Method for Computing the Inverse of a Relationship Matrix
• The Estimation of Environmental and Genetic Trends from Records Subject to Culling
• Rapid Method for Computing the Inverse of a Relationship Matrix
• A simple method for computing the inverse of a numerator relationship matrix used in prediction of breeding values
• Best Linear Unbiased Estimation and Prediction under a Selection Model
• Variance-Covariance Matrix of Estimators of Variances in Unweighted Means ANOVA
• Estimation of Variance and Covariance Components

• CE-210: Inferência estatística II
• CE-718: Métodos Computacionalmente Intensivos

• Estatística Experimental com Software R
• Planejamento de experimento PG Produção Vegetal UFPR
• Análise de Experimentos de longa duração II Reunião Paranaense Ciência do Solo

##------------------------------------------------------------------###
###-----------------------------------------------------------------###
### Regressão Beta
### pacote oficial
require(betareg)
data("FoodExpenditure", package = "betareg")
fe_beta <- betareg(I(food/income) ~ income + persons , data = FoodExpenditure)
summary(fe_beta)
###-----------------------------------------------------------------###
### log vero da regressão beta com duas covariaveis, 
log.vero <- function(par,y,x1,x2){
        mu <- exp((par[1] + par[2] * x1 + par[3] * x2))/(1+exp((par[1] + par[2] * x1 + par[3] * x2)))##logit^-1
        ll  <- sum(dbeta(y, mu* par[4], (1-mu)*par[4],log = TRUE))
        return(ll)
}
 
###-----------------------------------------------------------------###          
opt <- optim(c(B0=-0.5,B1=-0.51,B2=0.11,phi=35),log.vero,y=FoodExpenditure$food/FoodExpenditure$income,
                                                        x1=FoodExpenditure$income,
                                                        x2=FoodExpenditure$persons,
                                                        hessian = TRUE, control=(list(fnscale=-1)))
opt
opt$par
sqrt(-diag(solve(opt$hessian)))
summary(fe_beta)
###-----------------------------------------------------------------###
log.veroP <- function(par,phi,y,x1,x2){
        mu <- exp((par[1] + par[2] * x1 + par[3] * x2))/(1+exp((par[1] + par[2] * x1 + par[3] * x2)))##logit^-1
        ll  <- sum(dbeta(y, mu* phi, (1-mu)*phi,log = TRUE))
        return(ll)
}
 
opt <- grid.phi <- seq(20,60,l=150)
con <- 1
for (i in grid.phi){
  opt[con] <- optim(c(B0=-0.5,B1=-0.51,B2=0.11),log.veroP,phi=i,y=FoodExpenditure$food/FoodExpenditure$income,
                                                        x1=FoodExpenditure$income,
                                                        x2=FoodExpenditure$persons,
                                                        hessian = TRUE, control=(list(fnscale=-1)))$value
  con <- con+1
}
 
plot(grid.phi,2*(max(opt)-opt),type='l')
abline(h=3.84)

Regressão beta