maxlogL: Maximum Likelihood Estimation for parametric distributions

In EstimationTools: Maximum Likelihood Estimation for Probability Functions from Data Sets

Maximum Likelihood Estimation for parametric distributions

Description

Wrapper function to compute maximum likelihood estimators (MLE) of any distribution implemented in R.

Usage

maxlogL(
  x,
  dist = "dnorm",
  fixed = NULL,
  link = NULL,
  start = NULL,
  lower = NULL,
  upper = NULL,
  optimizer = "nlminb",
  control = NULL,
  StdE_method = c("optim", "numDeriv"),
  silent = FALSE,
  ...
)

Arguments

x	a vector with data to be fitted. This argument must be a matrix with hierarchical distributions.
dist	a length-one character vector with the name of density/mass function of interest. The default value is 'dnorm', to compute maximum likelihood estimators of normal distribution.
fixed	a list with fixed/known parameters of distribution of interest. Fixed parameters must be passed with its name.
link	a list with names of parameters to be linked, and names of the link function object. For names of parameters, please visit documentation of density/mass function. There are three link functions available: log_link, logit_link and NegInv_link.
start	a numeric vector with initial values for the parameters to be estimated.
lower	a numeric vector with lower bounds, with the same length of argument start (for box-constrained optimization).
upper	a numeric vector with upper bounds, with the same length of argument start (for box-constrained optimization).
optimizer	a length-one character vector with the name of optimization routine. nlminb, optim, DEoptim and gaare available; custom optimization routines can also be implemented. nlminb is the default routine.
control	control parameters of the optimization routine. Please, visit documentation of selected optimizer for further information.
StdE_method	a length-one character vector with the routine for Hessian matrix computation. The This is needed for standard error estimation. The options available are "optim" and "numDeriv". For further information, visit optim or hessian.
silent	logical. If TRUE, warnings of maxlogL are suppressed.
...	further arguments to be supplied to the optimizer.

Details

maxlogL computes the likelihood function corresponding to the distribution specified in argument dist and maximizes it through optim, nlminb or DEoptim. maxlogL generates an S3 object of class maxlogL.

Noncentrality parameters must be named as ncp in the distribution.

Value

A list with class "maxlogL" containing the following lists:

fit	A list with output information about estimation.
inputs	A list with all input arguments.
outputs	A list with some output additional information: Number of parameters. Sample size Standard error computation method.

Note

The following generic functions can be used with a maxlogL object: summary, print, AIC, BIC, logLik.

Author(s)

Jaime Mosquera Gutiérrez, [e-mail]

References

\insertRef

Nelder1965EstimationTools

\insertRef

Fox1978EstimationTools

\insertRef

Nash1979EstimationTools

\insertRef

Dennis1981EstimationTools

See Also

summary.maxlogL, optim, nlminb, DEoptim, DEoptim.control, maxlogLreg, bootstrap_maxlogL

Other maxlogL: hazard_fun(), maxlogLreg()

Examples

library(EstimationTools)

#----------------------------------------------------------------------------
# Example 1: estimation with one fixed parameter
x <- rnorm(n = 10000, mean = 160, sd = 6)
theta_1 <- maxlogL(x = x, dist = 'dnorm', control = list(trace = 1),
                 link = list(over = "sd", fun = "log_link"),
                 fixed = list(mean = 160))
summary(theta_1)


#----------------------------------------------------------------------------
# Example 2: both parameters of normal distribution mapped with logarithmic
# function
theta_2 <- maxlogL(x = x, dist = "dnorm",
                   link = list(over = c("mean","sd"),
                               fun = c("log_link","log_link")))
summary(theta_2)


#--------------------------------------------------------------------------------
# Example 3: parameter estimation in ZIP distribution
if (!require('gamlss.dist')) install.packages('gamlss.dist')
library(gamlss.dist)
z <- rZIP(n=1000, mu=6, sigma=0.08)
theta_3  <- maxlogL(x = z, dist = 'dZIP', start = c(0, 0),
                   lower = c(-Inf, -Inf), upper = c(Inf, Inf),
                   optimizer = 'optim',
                   link = list(over=c("mu", "sigma"),
                   fun = c("log_link", "logit_link")))
summary(theta_3)


#--------------------------------------------------------------------------------
# Example 4: parameter estimation with fixed noncentrality parameter.
y_2 <- rbeta(n = 1000, shape1 = 2, shape2 = 3)
theta_41 <- maxlogL(x = y_2, dist = "dbeta",
                    link = list(over = c("shape1", "shape2"),
                    fun = c("log_link","log_link")))
summary(theta_41)

# It is also possible define 'ncp' as fixed parameter
theta_42 <- maxlogL(x = y_2, dist = "dbeta", fixed = list(ncp = 0),
                    link = list(over = c("shape1", "shape2"),
                    fun = c("log_link","log_link")) )
summary(theta_42)


#--------------------------------------------------------------------------------

EstimationTools documentation built on Dec. 10, 2022, 9:07 a.m.