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

Felipe felipe.e.barletta em gmail.com
Quarta Junho 21 09:47:43 -03 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
===================================



Mais detalhes sobre a lista de discussão R-br