VGAM (version 0.8-1)

mix2exp: Mixture of Two Exponential Distributions

Description

Estimates the three parameters of a mixture of two exponential distributions by maximum likelihood estimation.

Usage

mix2exp(lphi="logit", llambda="loge", ephi=list(), el1=list(), el2=list(),
        iphi=0.5, il1=NULL, il2=NULL, qmu=c(0.8, 0.2), nsimEIM=100, zero=1)

Arguments

lphi

Link function for the parameter $\phi$. See Links for more choices.

llambda

Link function applied to each $\lambda$ (rate) parameter. See Links for more choices. Note that the mean of an ordinary exponential distribution is $1 / \lambda$.

ephi, el1, el2

List. Extra argument for each of the links. See earg in Links for general information.

iphi

Initial value for $\phi$, whose value must lie between 0 and 1.

il1, il2

Optional initial value for $\lambda_1$ and $\lambda_2$. These values must be positive. The default is to compute initial values internally using the argument qmu.

qmu

Vector with two values giving the probabilities relating to the sample quantiles for obtaining initial values for $\lambda_1$ and $\lambda_2$. The two values are fed in as the probs argument into

nsimEIM

See CommonVGAMffArguments.

zero

An integer specifying which linear/additive predictor is modelled as intercepts only. If given, the value must be either 1 and/or 2 and/or 3, and the default is the first one only, meaning $\phi$ is a single parameter even when there are explanator

Value

• An object of class "vglmff" (see vglmff-class). The object is used by modelling functions such as vglm and vgam.

Warning

This VGAM family function requires care for a successful application. In particular, good initial values are required because of the presence of local solutions. Therefore running this function with several different combinations of arguments such as iphi, il1, il2, qmu is highly recommended. Graphical methods such as hist can be used as an aid.

Details

The probability function can be loosely written as $$P(Y=y) = \phi\,Exponential(\lambda_1) + (1-\phi)\,Exponential(\lambda_2)$$ where $\phi$ is the probability an observation belongs to the first group, and $y>0$. The parameter $\phi$ satisfies $0 < \phi < 1$. The mean of $Y$ is $\phi / \lambda_1 + (1-\phi) / \lambda_2$ and this is returned as the fitted values. By default, the three linear/additive predictors are $(logit(\phi), \log(\lambda_1), \log(\lambda_2))^T$.

See Also

rexp, exponential, mix2poisson.

Examples

lambda1 = exp(1); lambda2 = exp(3)
(phi = logit(-1, inverse=TRUE))
mdata = data.frame(y1 = rexp(nn <- 1000, lambda1))
mdata = transform(mdata, y2 = rexp(nn, lambda2))
mdata = transform(mdata, y  = ifelse(runif(nn) < phi, y1, y2))
fit = vglm(y ~ 1, mix2exp, mdata, trace=TRUE)
coef(fit, matrix=TRUE)

# Compare the results with the truth
round(rbind('Estimated'=Coef(fit),
            'Truth'=c(phi, lambda1, lambda2)), dig=2)

# Plot the results
with(mdata, hist(y, prob=TRUE, main="Red=estimate, blue=truth"))
abline(v=1/Coef(fit)[c(2,3)], lty=2, col="red", lwd=2)
abline(v=1/c(lambda1, lambda2), lty=2, col="blue", lwd=2)