Skip to contents

Maximiza uma funcao de log-verossimilhanca via stats::optim() e estima erros-padrao pela inversa da informacao de Fisher observada (Hessiana).

Usage

rnp_emv(log_veross, inicio, nomes = NULL, metodo = "Nelder-Mead", digits = 4L)

Arguments

log_veross

Funcao function(theta) ... que devolve a log-verossimilhanca (escalar) para o vetor de parametros theta.

inicio

Vetor de valores iniciais para theta.

nomes

Vetor opcional de nomes dos parametros.

metodo

Metodo de stats::optim().

digits

Inteiro.

Value

Uma lista com estimativas (tibble: parametro, estimativa, erro_padrao, z, ic_inf, ic_sup) e ajuste (tibble: log_veross, aic, bic... convergiu).

Examples

set.seed(1); x <- rnorm(200, 5, 2)
ll <- function(th) sum(dnorm(x, th[1], th[2], log = TRUE))
rnp_emv(ll, inicio = c(0, 1), nomes = c("media", "dp"))$estimativas
#> # A tibble: 2 × 6
#>   parametro estimativa erro_padrao     z ic_inf ic_sup
#>   <chr>          <dbl>       <dbl> <dbl>  <dbl>  <dbl>
#> 1 media           5.07      0.131   38.7   4.81   5.33
#> 2 dp              1.85      0.0927  20.0   1.67   2.04