|
LOGNORMAL MOMENT ESTIMATESName:
The input array, say X, should contain the following values:
If one of the values is not available, then you can enter either CPUMIN or the statistic missing value. For example, if the skewness is not available, you can do one of the following:
LET CPUMIN = PROBVAL LET X(3) = CPUMIN or
LET X(3) = -9999 The following output vector, say Y, is returned:
Any of these moment estimates that cannot be computed will be set to CPUMIN. This can happen if certain summary statistics are not provided or if the equation solvers are not able to find a solution. The 3-parameter moment and modified moment estimates are computed using the codes provided on pages 352-354 of Cohen and Whitten.
<SUBSET/EXCEPT/FOR qualification> where <x> is the variable containing the summary statistics; <y> is a variable containing the lognormal moment estimates; and where the <SUBSET/EXCEPT/FOR qualification> is optional and rarely used for this command.
. Purpose: Test LOGNORMAL MOMENT ESTIMATES command . . Step 1: Read data . . Data from . . Cohen and Whitten (1988), "Parameter Estimation in . Reliability and Life Span Models", Dekker, p. 54. . serial read x 0.654 0.613 0.315 0.449 0.297 0.402 0.379 0.423 0.379 0.3225 0.269 0.740 0.418 0.412 0.494 0.416 0.338 0.392 0.484 0.265 end of data . let xmean = mean x let xsd = sd x let xmin = mini x let xskew = skew x let n = size x let z = data xmean xsd xskew xmin n . let y = lognormal moment estimates z . let numdec = 5 . let locmom = y(1); let locmom = round(locmom,numdec) let scalemom = y(2); let scalemom = round(scalemom,numdec) let sigmamom = y(3); let sigmamom = round(sigmamom,numdec) let uhatmom = y(4); let uhatmom = round(uhatmom,numdec) let locmmom = y(5); let locmmom = round(locmmom,numdec) let scalmmom = y(6); let scalmmom = round(scalmmom,numdec) let sigmmmom = y(7); let sigmmmom = round(sigmmom,numdec) let uhatmmom = y(8); let uhatmmom = round(uhatmmom,numdec) . let xmean = round(xmean,numdec) let xsd = round(xsd,numdec) let xskew = round(xskew,numdec) let xmin = round(xmin,numdec) . print "Lognormal Parameter Estimates From Summary Data" print " " print " " print "Sample Mean: ^xmean" print "Sample SD: ^xsd" print "Sample Skewness: ^xskew" print "Sample Minimum: ^xmin" print "Sample Size: ^n" print " " print " " print "3-Parameter Lognormal Moment Estimates:" print "Location: ^locmom" print "Scale: ^scalemom" print "Shape: ^sigmamom" print "Uhat: ^uhatmom" print " " print " " print "3-Parameter Lognormal Modified Moment Estimates:" print "Location: ^locmmom" print "Scale: ^scalmmom" print "Shape: ^sigmmmom" print "Uhat: ^uhatmmom"The following output is generated. Lognormal Parameter Estimates From Summary Data Sample Mean: 0.42308 Sample SD: 0.12532 Sample Skewness: 1.06665 Sample Minimum: 0.265 Sample Size: 20 3-Parameter Lognormal Moment Estimates: Location: 0.05685 Scale: 0.3465 Shape: 0.33277 Uhat: -1.05986 3-Parameter Lognormal Modified Moment Estimates: Location: 0.1716 Scale: 0.22508 Shape: 0.4709776775 Uhat: -1.49131
|
Privacy
Policy/Security Notice
NIST is an agency of the U.S.
Commerce Department.
Date created: 06/23/2014 |