Probability density function of Exponential-based model

A probability density function(PDF) of Exponential-based model. It is an underlying routine for plot.expmodel to compute the values of PDF. To access parameters and coefficients in an object emodel of a class expmodel, use emodel$result[k, "lmd1"], emodel$coeffs[[k]] for some index k. This index appears in the leftmost column of estimation table generated by summary(emodel).

Usage

pdf_expmodel(coeff, lmd, x)

Arguments

coeff

A coefficient vector in increasing order of degrees; the first element is 0th degree, ..., and last element is the largest degree of coefficients.

lmd

A rate parameter of an exponential distribution, which is positive.

x

A numeric input vector.

Value

A numeric vector of PDF of an exponential-based model.

See also

expmodel() summary.expmodel() estimate.expmodel() func.expmodel() plot.expmodel() cdf_expmodel()

Examples

## Create an object of `expmodel`
emodel <- expmodel(mixexpgamma$n200)
## Estimate with degree 4 and rate parameter 2.0
emodel <- estimate(emodel, 4, 2.0)
#> (4,2)
#> Status: Normal Termination.
## Input vector
x <- seq(0, 12, 0.1)
## Output of PDF in above estimation
yv <- pdf_expmodel(emodel$coeffs[[1]], emodel$result[1, "lmd1"], x)