# elnorm3: Estimate Parameters of a Three-Parameter Lognormal... In EnvStats: Package for Environmental Statistics, Including US EPA Guidance

 elnorm3 R Documentation

## Estimate Parameters of a Three-Parameter Lognormal Distribution (Log-Scale)

### Description

Estimate the mean, standard deviation, and threshold parameters for a three-parameter lognormal distribution, and optionally construct a confidence interval for the threshold or the median of the distribution.

### Usage

  elnorm3(x, method = "lmle", ci = FALSE, ci.parameter = "threshold",
ci.method = "avar", ci.type = "two-sided", conf.level = 0.95,
threshold.lb.sd = 100, evNormOrdStats.method = "royston")


### Arguments

 x numeric vector of observations. method character string specifying the method of estimation. Possible values are: "lmle" (local maximum likelihood; the default) "mme" (method of moments) "mmue" (method of moments using an unbaised estimate of variance) "mmme" (modified method of moments due to Cohen and Whitten (1980)) "zero.skew" (zero-skewness estimator due to Griffiths (1980)) "royston.skew" (estimator based on Royston's (1992b) index of skewness). See the DETAILS section for more information. ci logical scalar indicating whether to compute a confidence interval for either the threshold or median of the distribution. The default value is FALSE. ci.parameter character string indicating the parameter for which the confidence interval is desired. The possible values are "threshold" (the default) and "median". This argument is ignored if ci=FALSE. ci.method character string indicating the method to use to construct the confidence interval. The possible values are "avar" (asymptotic variance; the default), "likelihood.profile", and "skewness" (method suggested by Royston (1992b) for method="zero.skew"). This argument is ignored if ci=FALSE. ci.type character string indicating what kind of confidence interval to compute. The possible values are "two-sided" (the default), "lower", and "upper". This argument is ignored if ci=FALSE. conf.level a scalar between 0 and 1 indicating the confidence level of the confidence interval. The default value is conf.level=0.95. This argument is ignored if ci=FALSE. threshold.lb.sd a positive numeric scalar specifying the range over which to look for the local maximum likelihood (method="lmle") or zero-skewness (method="zero.skewness") estimator of threshold. The range is set to [ mean(x) - threshold.lb.sd * sd(x), min(x) ]. If you receive a warning message that elnorm3 is unable to find an acceptable estimate of threshold in this range, it may be because of convergence problems specific to the data in x. When this occurs, try changing the value of threshold.lb.sd. This same range is used in constructing confidence intervals for the threshold parameter. The default value is threshold.lb.sd=100. This argument is relevant only if method="lmle", method="zero.skew", ci.method="likelihood.profile", and/or ci.method="skewness". evNormOrdStats.method character string indicating which method to use in the call to link{evNormOrdStatsScalar} when method="mmme". See the DETAILS section for more information.

### Details

If x contains any missing (NA), undefined (NaN) or infinite (Inf, -Inf) values, they will be removed prior to performing the estimation.

Let X denote a random variable from a three-parameter lognormal distribution with parameters meanlog=\mu, sdlog=\sigma, and threshold=\gamma. Let \underline{x} denote a vector of n observations from this distribution. Furthermore, let x_{(i)} denote the i'th order statistic in the sample, so that x_{(1)} denotes the smallest value and x_{(n)} denote the largest value in \underline{x}. Finally, denote the sample mean and variance by:

\bar{x} = \frac{1}{n} \sum_{i=1}^n x_i \;\;\;\; (1)

s^2 = \frac{1}{n-1} \sum_{i=1}^n (x_i - \bar{x})^2 \;\;\;\; (2)

Note that the sample variance is the unbiased version. Denote the method of moments estimator of variance by:

s^2_m = \frac{1}{n} \sum_{i=1}^n (x_i - \bar{x})^2 \;\;\;\; (3)

Estimation

Local Maximum Likelihood Estimation (method="lmle")
Hill (1963) showed that the likelihood function approaches infinity as \gamma approaches x_{(1)}, so that the global maximum likelihood estimators of (\mu, \sigma, \gamma) are (-\infty, \infty, x_{(1)}), which are inadmissible, since \gamma must be smaller than x_{(1)}. Cohen (1951) suggested using local maximum likelihood estimators (lmle's), derived by equating partial derivatives of the log-likelihood function to zero. These estimators were studied by Harter and Moore (1966), Calitz (1973), Cohen and Whitten (1980), and Griffiths (1980), and appear to possess most of the desirable properties ordinarily associated with maximum likelihood estimators.

Cohen (1951) showed that the lmle of \gamma is given by the solution to the following equation:

[\sum_{i=1}^n \frac{1}{w_i}] \, \{\sum_{i=1}^n y_i - \sum_{i=1}^n y_i^2 + \frac{1}{n}[\sum_{i=1}^n y_i]^2 \} - n \sum_{i=1}^n \frac{y_i}{w_i} = 0 \;\;\;\; (4)

where

w_i = x_i - \hat{\gamma} \;\;\;\; (5)

y_i = log(x_i - \hat{\gamma}) = log(w_i) \;\;\;\; (6)

and that the lmle's of \mu and \sigma then follow as:

\hat{\mu} = \frac{1}{n} \sum_{i=1}^n y_i = \bar{y} \;\;\;\; (7)

\hat{\sigma}^2 = \frac{1}{n} \sum_{i=1}^n (y_i - \bar{y})^2 \;\;\;\; (8)

Unfortunately, while equation (4) simplifies the task of computing the lmle's, for certain data sets there still may be convergence problems (Calitz, 1973), and occasionally multiple roots of equation (4) may exist. When multiple roots to equation (4) exisit, Cohen and Whitten (1980) recommend using the one that results in closest agreement between the mle of \mu (equation (7)) and the sample mean (equation (1)).

On the other hand, Griffiths (1980) showed that for a given value of the threshold parameter \gamma, the maximized value of the log-likelihood (the “profile likelihood” for \gamma) is given by:

log[L(\gamma)] = \frac{-n}{2} [1 + log(2\pi) + 2\hat{\mu} + log(\hat{\sigma}^2) ] \;\;\;\; (9)

where the estimates of \mu and \sigma are defined in equations (7) and (8), so the lmle of \gamma reduces to an iterative search over the values of \gamma. Griffiths (1980) noted that the distribution of the lmle of \gamma is far from normal and that log[L(\gamma)] is not quadratic near the lmle of \gamma. He suggested a better parameterization based on

\eta = -log(x_{(1)} - \gamma) \;\;\;\; (10)

Thus, once the lmle of \eta is found using equations (9) and (10), the lmle of \gamma is given by:

\hat{\gamma} = x_{(1)} - exp(-\hat{\eta}) \;\;\;\; (11)

When method="lmle", the function elnorm3 uses the function nlminb to search for the minimum of -2log[L(\eta)], using the modified method of moments estimator (method="mmme"; see below) as the starting value for \gamma. Equation (11) is then used to solve for the lmle of \gamma, and equation (4) is used to “fine tune” the estimated value of \gamma. The lmle's of \mu and \sigma are then computed using equations (6)-(8).

Method of Moments Estimation (method="mme")
Denote the r'th sample central moment by:

m_r = \frac{1}{n} \sum_{i=1}^n (x_i - \bar{x})^r \;\;\;\; (12)

and note that

s^2_m = m_2 \;\;\;\; (13)

Equating the sample first moment (the sample mean) with its population value (the population mean), and equating the second and third sample central moments with their population values yields (Johnson et al., 1994, p.228):

\bar{x} = \gamma + \beta \sqrt{\omega} \;\;\;\; (14)

m_2 = s^2_m = \beta^2 \omega (\omega - 1) \;\;\;\; (15)

m_3 = \beta^3 \omega^{3/2} (\omega - 1)^2 (\omega + 2) \;\;\;\; (16)

where

\beta = exp(\mu) \;\;\;\; (17)

\omega = exp(\sigma^2) \;\;\;\; (18)

Combining equations (15) and (16) yields:

b_1 = \frac{m_3}{m_2^{3/2}} = (\omega + 2) \sqrt{\omega - 1} \;\;\;\; (19)

The quantity on the left-hand side of equation (19) is the usual estimator of skewness. Solving equation (19) for \omega yields:

\hat{\omega} = (d + h)^{1/3} + (d - h)^{1/3} - 1 \;\;\;\; (20)

where

d = 1 + \frac{b_1}{2} \;\;\;\; (21)

h = sqrt{d^2 - 1} \;\;\;\; (22)

Using equation (18), the method of moments estimator of \sigma is then computed as:

\hat{\sigma}^2 = log(\hat{\omega}) \;\;\;\; (23)

Combining equations (15) and (17), the method of moments estimator of \mu is computed as:

\hat{\mu} = \frac{1}{2} log[\frac{s^2_m}{\hat{omega}(\hat{\omega} - 1)}] \;\;\;\; (24)

Finally, using equations (14), (17), and (18), the method of moments estimator of \gamma is computed as:

\bar{x} - exp(\hat{mu} + \frac{\hat{\sigma}^2}{2}) \;\;\;\; (25)

There are two major problems with using method of moments estimators for the three-parameter lognormal distribution. First, they are subject to very large sampling error due to the use of second and third sample moments (Cohen, 1988, p.121; Johnson et al., 1994, p.228). Second, Heyde (1963) showed that the lognormal distribution is not uniquely determined by its moments.

Method of Moments Estimators Using an Unbiased Estimate of Variance (method="mmue")
This method of estimation is exactly the same as the method of moments (method="mme"), except that the unbiased estimator of variance (equation (3)) is used in place of the method of moments one (equation (4)). This modification is given in Cohen (1988, pp.119-120).

Modified Method of Moments Estimation (method="mmme")
This method of estimation is described by Cohen (1988, pp.125-132). It was introduced by Cohen and Whitten (1980; their MME-II with r=1) and was further investigated by Cohen et al. (1985). It is motivated by the fact that the first order statistic in the sample, x_{(1)}, contains more information about the threshold parameter \gamma than any other observation and often more information than all of the other observations combined (Cohen, 1988, p.125).

The first two sets of equations are the same as for the modified method of moments estimators (method="mmme"), i.e., equations (14) and (15) with the unbiased estimator of variance (equation (3)) used in place of the method of moments one (equation (4)). The third equation replaces equation (16) by equating a function of the first order statistic with its expected value:

log(x_{(1)} - \gamma) = \mu + \sigma E[Z_{(1,n)}] \;\;\;\; (26)

where E[Z_{(i,n)}] denotes the expected value of the i'th order statistic in a random sample of n observations from a standard normal distribution. (See the help file for evNormOrdStats for information on how E[Z_{(i,n)}] is computed.) Using equations (17) and (18), equation (26) can be rewritten as:

x_{(1)} = \gamma + \beta exp\{\sqrt{log(\omega)} \, E[Z_{(i,n)}] \} \;\;\;\; (27)

Combining equations (14), (15), (17), (18), and (27) yields the following equation for the estimate of \omega:

\frac{s^2}{[\bar{x} - x_{(1)}]^2} = \frac{\hat{\omega}(\hat{\omega} - 1)}{[\sqrt{\hat{\omega}} - exp\{\sqrt{log(\omega)} \, E[Z_{(i,n)}] \} ]^2} \;\;\;\; (28)

After equation (28) is solved for \hat{\omega}, the estimate of \sigma is again computed using equation (23), and the estimate of \mu is computed using equation (24), where the unbiased estimate of variaince is used in place of the biased one (just as for method="mmue").

Zero-Skewness Estimation (method="zero.skew")
This method of estimation was introduced by Griffiths (1980), and elaborated upon by Royston (1992b). The idea is that if the threshold parameter \gamma were known, then the distribution of:

Y = log(X - \gamma) \;\;\;\; (29)

is normal, so the skew of Y is 0. Thus, the threshold parameter \gamma is estimated as that value that forces the sample skew (defined in equation (19)) of the observations defined in equation (6) to be 0. That is, the zero-skewness estimator of \gamma is the value that satisfies the following equation:

0 = \frac{\frac{1}{n} \sum_{i=1}^n (y_i - \bar{y})^3}{[\frac{1}{n} \sum_{i=1}^n (y_i - \bar{y})^2]^{3/2}} \;\;\;\; (30)

where

y_i = log(x_i - \hat{\gamma}) \;\;\;\; (31)

Note that since the denominator in equation (30) is always positive (assuming there are at least two unique values in \underline{x}), only the numerator needs to be used to determine the value of \hat{\gamma}.

Once the value of \hat{\gamma} has been determined, \mu and \sigma are estimated using equations (7) and (8), except the unbiased estimator of variance is used in equation (8).

Royston (1992b) developed a modification of the Shaprio-Wilk goodness-of-fit test for normality based on tranforming the data using equation (6) and the zero-skewness estimator of \gamma (see gofTest).

Estimators Based on Royston's Index of Skewness (method="royston.skew")
This method of estimation is discussed by Royston (1992b), and is similar to the zero-skewness method discussed above, except a different measure of skewness is used. Royston's (1992b) index of skewness is given by:

q = \frac{y_{(n)} - \tilde{y}}{\tilde{y} - y_{(1)}} \;\;\;\; (32)

where y_{(i)} denotes the i'th order statistic of y and y is defined in equation (31) above, and \tilde{y} denotes the median of y. Royston (1992b) shows that the value of \gamma that yields a value of q=0 is given by:

\hat{\gamma} = \frac{y_{(1)}y_{(n)} - \tilde{y}^2}{y_{(1)} + y_{(n)} - 2\tilde{y}} \;\;\;\; (33)

Again, as for the zero-skewness method, once the value of \hat{\gamma} has been determined, \mu and \sigma are estimated using equations (7) and (8), except the unbiased estimator of variance is used in equation (8).

Royston (1992b) developed this estimator as a quick way to estimate \gamma.

Confidence Intervals
This section explains three different methods for constructing confidence intervals for the threshold parameter \gamma, or the median of the three-parameter lognormal distribution, which is given by:

Med[X] = \gamma + exp(\mu) = \gamma + \beta \;\;\;\; (34)

Normal Approximation Based on Asymptotic Variances and Covariances (ci.method="avar")
Formulas for asymptotic variances and covariances for the three-parameter lognormal distribution, based on the information matrix, are given in Cohen (1951), Cohen and Whitten (1980), Cohen et al., (1985), and Cohen (1988). The relevant quantities for \gamma and the median are:

Var(\hat{\gamma}) = \sigma^2_{\hat{\gamma}} = \frac{\sigma^2}{n} \, (\frac{\beta^2}{\omega}) H \;\;\;\; (35)

Var(\hat{\beta}) = \sigma^2_{\hat{\beta}} = \frac{\sigma^2}{n} \, \beta^2 (1 + H) \;\;\;\; (36)

Cov(\hat{\gamma}, \hat{\beta}) = \sigma_{\hat{\gamma}, \hat{\beta}} = \frac{-\sigma^3}{n} \, (\frac{\beta^2}{\sqrt{\omega}}) H \;\;\;\; (37)

where

H = [\omega (1 + \sigma^2) - 2\sigma^2 - 1]^{-1} \;\;\;\; (38)

A two-sided (1-\alpha)100\% confidence interval for \gamma is computed as:

\hat{\gamma} - t_{n-2, 1-\alpha/2} \hat{\sigma}_{\hat{\gamma}}, \, \hat{\gamma} + t_{n-2, 1-\alpha/2} \hat{\sigma}_{\hat{\gamma}} \;\;\;\; (39)

where t_{\nu, p} denotes the p'th quantile of Student's t-distribution with n degrees of freedom, and the quantity \hat{\sigma}_{\hat{\gamma}} is computed using equations (35) and (38) and substituting estimated values of \beta, \omega, and \sigma. One-sided confidence intervals are computed in a similar manner.

A two-sided (1-\alpha)100\% confidence interval for the median (see equation (34) above) is computed as:

\hat{\gamma} + \hat{\beta} - t_{n-2, 1-\alpha/2} \hat{\sigma}_{\hat{\gamma} + \hat{\beta}}, \, \hat{\gamma} + \hat{\beta} + t_{n-2, 1-\alpha/2} \hat{\sigma}_{\hat{\gamma} + \hat{\beta}} \;\;\;\; (40)

where

\hat{\sigma}^2_{\hat{\gamma} + \hat{\beta}} = \hat{\sigma}^2_{\hat{\gamma}} + \hat{\sigma}^2_{\hat{\beta}} + \hat{\sigma}_{\hat{\gamma}, \hat{\beta}} \;\;\;\; (41)

is computed using equations (35)-(38) and substituting estimated values of \beta, \omega, and \sigma. One-sided confidence intervals are computed in a similar manner.

This method of constructing confidence intervals is analogous to using the Wald test (e.g., Silvey, 1975, pp.115-118) to test hypotheses on the parameters.

Because of the regularity problems associated with the global maximum likelihood estimators, it is questionble whether the asymptotic variances and covariances shown above apply to local maximum likelihood estimators. Simulation studies, however, have shown that these estimates of variance and covariance perform reasonably well (Harter and Moore, 1966; Cohen and Whitten, 1980).

Note that this method of constructing confidence intervals can be used with estimators other than the lmle's. Cohen and Whitten (1980) and Cohen et al. (1985) found that the asymptotic variances and covariances are reasonably close to corresponding simulated variances and covariances for the modified method of moments estimators (method="mmme").

Likelihood Profile (ci.method="likelihood.profile")
Griffiths (1980) suggested constructing confidence intervals for the threshold parameter \gamma based on the profile likelihood function given in equations (9) and (10). Royston (1992b) further elaborated upon this procedure. A two-sided (1-\alpha)100\% confidence interval for \eta is constructed as:

[\eta_{LCL}, \eta_{UCL}] \;\;\;\; (42)

by finding the two values of \eta (one larger than the lmle of \eta and one smaller than the lmle of \eta) that satisfy:

log[L(\eta)] = log[L(\hat{\eta}_{lmle})] - \frac{1}{2} \chi^2_{1, \alpha/2} \;\;\;\; (43)

where \chi^2_{\nu, p} denotes the p'th quantile of the chi-square distribution with \nu degrees of freedom. Once these values are found, the two-sided confidence for \gamma is computed as:

[\gamma_{LCL}, \gamma_{UCL}] \;\;\;\; (44)

where

\gamma_{LCL} = x_{(1)} - exp(-\eta_{LCL}) \;\;\;\; (45)

\gamma_{UCL} = x_{(1)} - exp(-\eta_{UCL}) \;\;\;\; (46)

One-sided intervals are construced in a similar manner.

This method of constructing confidence intervals is analogous to using the likelihood-ratio test (e.g., Silvey, 1975, pp.108-115) to test hypotheses on the parameters.

To construct a two-sided (1-\alpha)100\% confidence interval for the median (see equation (34)), Royston (1992b) suggested the following procedure:

1. Construct a confidence interval for \gamma using the likelihood profile procedure.

2. Construct a confidence interval for \beta as:

[\beta_{LCL}, \beta_{UCL}] = [exp(\hat{\mu} - t_{n-2, 1-\alpha/2} \frac{\hat{\sigma}}{n}), \, exp(\hat{\mu} + t_{n-2, 1-\alpha/2} \frac{\hat{\sigma}}{n})] \;\;\;\; (47)

3. Construct the confidence interval for the median as:

[\gamma_{LCL} + \beta_{LCL}, \gamma_{UCL} + \beta_{UCL}] \;\;\;\; (48)

Royston (1992b) actually suggested using the quantile from the standard normal distribution instead of Student's t-distribution in step 2 above. The function elnorm3, however, uses the Student's t quantile.

Note that this method of constructing confidence intervals can be used with estimators other than the lmle's.

Royston's Confidence Interval Based on Significant Skewness (ci.method="skewness")
Royston (1992b) suggested constructing confidence intervals for the threshold parameter \gamma based on the idea behind the zero-skewness estimator (method="zero.skew"). A two-sided (1-\alpha)100\% confidence interval for \gamma is constructed by finding the two values of \gamma that yield a p-value of \alpha/2 for the test of zero-skewness on the observations \underline{y} defined in equation (6) (see gofTest). One-sided confidence intervals are constructed in a similar manner.

To construct (1-\alpha)100\% confidence intervals for the median (see equation (34)), the exact same procedure is used as for ci.method="likelihood.profile", except that the confidence interval for \gamma is based on the zero-skewness method just described instead of the likelihood profile method.

### Value

a list of class "estimate" containing the estimated parameters and other information. See
estimate.object for details.

### Note

The problem of estimating the parameters of a three-parameter lognormal distribution has been extensively discussed by Aitchison and Brown (1957, Chapter 6), Calitz (1973), Cohen (1951), Cohen (1988), Cohen and Whitten (1980), Cohen et al. (1985), Griffiths (1980), Harter and Moore (1966), Hill (1963), and Royston (1992b). Stedinger (1980) and Hoshi et al. (1984) discuss fitting the three-parameter lognormal distribution to hydrologic data.

The global maximum likelihood estimates are inadmissible. In the past, several researchers have found that the local maximum likelihood estimates (lmle's) occasionally fail because of convergence problems, but they were not using the likelihood profile and reparameterization of Griffiths (1980). Cohen (1988) recommends the modified methods of moments estimators over lmle's because they are easy to compute, they are unbiased with respect to \mu and \sigma^2 (the mean and standard deviation on the log-scale), their variances are minimal or near minimal, and they do not suffer from regularity problems.

Because the distribution of the lmle of the threshold parameter \gamma is far from normal for moderate sample sizes (Griffiths, 1980), it is questionable whether confidence intervals for \gamma or the median based on asymptotic variances and covariances will perform well. Cohen and Whitten (1980) and Cohen et al. (1985), however, found that the asymptotic variances and covariances are reasonably close to corresponding simulated variances and covariances for the modified method of moments estimators (method="mmme"). In a simulation study (5000 monte carlo trials), Royston (1992b) found that the coverage of confidence intervals for \gamma based on the likelihood profile (ci.method="likelihood.profile") was very close the nominal level (94.1% for a nominal level of 95%), although not symmetric. Royston (1992b) also found that the coverage of confidence intervals for \gamma based on the skewness method (ci.method="skewness") was also very close (95.4%) and symmetric.

### Author(s)

Steven P. Millard (EnvStats@ProbStatInfo.com)

### References

Aitchison, J., and J.A.C. Brown (1957). The Lognormal Distribution (with special references to its uses in economics). Cambridge University Press, London, Chapter 5.

Calitz, F. (1973). Maximum Likelihood Estimation of the Parameters of the Three-Parameter Lognormal Distribution–a Reconsideration. Australian Journal of Statistics 15(3), 185–190.

Cohen, A.C. (1951). Estimating Parameters of Logarithmic-Normal Distributions by Maximum Likelihood. Journal of the American Statistical Association 46, 206–212.

Cohen, A.C. (1988). Three-Parameter Estimation. In Crow, E.L., and K. Shimizu, eds. Lognormal Distributions: Theory and Applications. Marcel Dekker, New York, Chapter 4.

Cohen, A.C., and B.J. Whitten. (1980). Estimation in the Three-Parameter Lognormal Distribution. Journal of the American Statistical Association 75, 399–404.

Cohen, A.C., B.J. Whitten, and Y. Ding. (1985). Modified Moment Estimation for the Three-Parameter Lognormal Distribution. Journal of Quality Technology 17, 92–99.

Crow, E.L., and K. Shimizu. (1988). Lognormal Distributions: Theory and Applications. Marcel Dekker, New York, Chapter 2.

Griffiths, D.A. (1980). Interval Estimation for the Three-Parameter Lognormal Distribution via the Likelihood Function. Applied Statistics 29, 58–68.

Harter, H.L., and A.H. Moore. (1966). Local-Maximum-Likelihood Estimation of the Parameters of Three-Parameter Lognormal Populations from Complete and Censored Samples. Journal of the American Statistical Association 61, 842–851.

Heyde, C.C. (1963). On a Property of the Lognormal Distribution. Journal of the Royal Statistical Society, Series B 25, 392–393.

Hill, .B.M. (1963). The Three-Parameter Lognormal Distribution and Bayesian Analysis of a Point-Source Epidemic. Journal of the American Statistical Association 58, 72–84.

Hoshi, K., J.R. Stedinger, and J. Burges. (1984). Estimation of Log-Normal Quantiles: Monte Carlo Results and First-Order Approximations. Journal of Hydrology 71, 1–30.

Johnson, N. L., S. Kotz, and N. Balakrishnan. (1994). Continuous Univariate Distributions, Volume 1. Second Edition. John Wiley and Sons, New York.

Royston, J.P. (1992b). Estimation, Reference Ranges and Goodness of Fit for the Three-Parameter Log-Normal Distribution. Statistics in Medicine 11, 897–912.

Stedinger, J.R. (1980). Fitting Lognormal Distributions to Hydrologic Data. Water Resources Research 16(3), 481–490.

Lognormal3, Lognormal, LognormalAlt, Normal.

### Examples

  # Generate 20 observations from a 3-parameter lognormal distribution
# with parameters meanlog=1.5, sdlog=1, and threshold=10, then use
# Cohen and Whitten's (1980) modified moments estimators to estimate
# the parameters, and construct a confidence interval for the
# threshold based on the estimated asymptotic variance.
# (Note: the call to set.seed simply allows you to reproduce this example.)

set.seed(250)
dat <- rlnorm3(20, meanlog = 1.5, sdlog = 1, threshold = 10)
elnorm3(dat, method = "mmme", ci = TRUE)

#Results of Distribution Parameter Estimation
#--------------------------------------------
#
#Assumed Distribution:            3-Parameter Lognormal
#
#Estimated Parameter(s):          meanlog   = 1.5206664
#                                 sdlog     = 0.5330974
#                                 threshold = 9.6620403
#
#Estimation Method:               mmme
#
#Data:                            dat
#
#Sample Size:                     20
#
#Confidence Interval for:         threshold
#
#Confidence Interval Method:      Normal Approximation
#                                 Based on Asymptotic Variance
#
#Confidence Interval Type:        two-sided
#
#Confidence Level:                95%
#
#Confidence Interval:             LCL =  6.985258
#                                 UCL = 12.338823

#----------

# Repeat the above example using the other methods of estimation
# and compare.

round(elnorm3(dat, "lmle")$parameters, 1) #meanlog sdlog threshold # 1.3 0.7 10.5 round(elnorm3(dat, "mme")$parameters, 1)
#meanlog     sdlog threshold
#    2.1       0.3       6.0

round(elnorm3(dat, "mmue")$parameters, 1) #meanlog sdlog threshold # 2.2 0.3 5.8 round(elnorm3(dat, "mmme")$parameters, 1)
#meanlog     sdlog threshold
#    1.5       0.5       9.7

round(elnorm3(dat, "zero.skew")$parameters, 1) #meanlog sdlog threshold # 1.3 0.6 10.3 round(elnorm3(dat, "royston")$parameters, 1)
#meanlog     sdlog threshold
#    1.4       0.6      10.1

#----------

# Compare methods for computing a two-sided 95% confidence interval
# for the threshold:
# modified method of moments estimator using asymptotic variance,
# lmle using asymptotic variance,
# lmle using likelihood profile, and
# zero-skewness estimator using the skewness method.

elnorm3(dat, method = "mmme", ci = TRUE,
ci.method = "avar")$interval$limits
#      LCL       UCL
# 6.985258 12.338823

elnorm3(dat, method = "lmle", ci = TRUE,
ci.method = "avar")$interval$limits
#       LCL       UCL
#  9.017223 11.980107

elnorm3(dat, method = "lmle", ci = TRUE,
ci.method="likelihood.profile")$interval$limits
#      LCL       UCL
# 3.699989 11.266029

elnorm3(dat, method = "zero.skew", ci = TRUE,
ci.method = "skewness")$interval$limits
#      LCL       UCL
#-25.18851  11.18652

#----------

# Now construct a confidence interval for the median of the distribution
# based on using the modified method of moments estimator for threshold
# and the asymptotic variances and covariances.  Note that the true median
# is given by threshold + exp(meanlog) = 10 + exp(1.5) = 14.48169.

elnorm3(dat, method = "mmme", ci = TRUE, ci.parameter = "median")

#Results of Distribution Parameter Estimation
#--------------------------------------------
#
#Assumed Distribution:            3-Parameter Lognormal
#
#Estimated Parameter(s):          meanlog   = 1.5206664
#                                 sdlog     = 0.5330974
#                                 threshold = 9.6620403
#
#Estimation Method:               mmme
#
#Data:                            dat
#
#Sample Size:                     20
#
#Confidence Interval for:         median
#
#Confidence Interval Method:      Normal Approximation
#                                 Based on Asymptotic Variance
#
#Confidence Interval Type:        two-sided
#
#Confidence Level:                95%
#
#Confidence Interval:             LCL = 11.20541
#                                 UCL = 17.26922

#----------

# Compare methods for computing a two-sided 95% confidence interval
# for the median:
# modified method of moments estimator using asymptotic variance,
# lmle using asymptotic variance,
# lmle using likelihood profile, and
# zero-skewness estimator using the skewness method.

elnorm3(dat, method = "mmme", ci = TRUE, ci.parameter = "median",
ci.method = "avar")$interval$limits
#     LCL      UCL
#11.20541 17.26922

elnorm3(dat, method = "lmle", ci = TRUE, ci.parameter = "median",
ci.method = "avar")$interval$limits
#     LCL      UCL
#12.28326 15.87233

elnorm3(dat, method = "lmle", ci = TRUE, ci.parameter = "median",
ci.method = "likelihood.profile")$interval$limits
#      LCL       UCL
# 6.314583 16.165525

elnorm3(dat, method = "zero.skew", ci = TRUE, ci.parameter = "median",
ci.method = "skewness")$interval$limits
#      LCL       UCL
#-22.38322  16.33569

#----------

# Clean up
#---------

rm(dat)



EnvStats documentation built on Aug. 22, 2023, 5:09 p.m.