Re: [R-br] Distribuições Gamma e Inversa Gaussiana

21 Jun 2017


      Pode usar a função optim:

### Gamma
G <- function(par, x)
{
   sum(dgamma(x, shape = par[1], rate = par[2], log = TRUE))
}


emv.G   <- optim(par = c(1, 10), fn = G, x = dados,
                   ,control=list("fnscale"=-1), hessian=TRUE)
emv.G$par


##### standard error
sqrt(diag(solve(-emv.G$hessian)))


-- 
Atenciosamente,


==================================
Felipe E. Barletta Mendes
Estatístico(UFPR) - Conre3 9766-A
Mestrando em Bioestatística(UEM)
+55 (41)-92077191
+55 (41)-33287216
===================================