loglikedw {DiscreteWeibull}

Loglikelihood function

Description

Loglikelihood function (changed in sign) for the type 1 discrete Weibull distribution

Usage

loglikedw(par, x, zero = FALSE)

Arguments

par

the vector of parameters, q and \beta

x

the vector of sample values

zero

TRUE, if the support contains 0; FALSE otherwise

Value

the value of the loglikelihood function (changed in sign) for the observed sample x under the parameters par

Author(s)

Alessandro Barbiero

See Also

estdweibull

Examples

x <- c(1,1,1,2,2,2,2,2,2,3,4,4,5,6,8)
-loglikedw(c(0.8, 1), x) # loglikelihood function for q=0.8 and beta=1
-loglikedw(c(0.4, 2), x) # loglikelihood function for q=0.4 and beta=2
par <- estdweibull(x, "ML")# parameter estimates derived by the ML method
par
-loglikedw(par, x) # the maximum value of the loglikelihood function