|
GAMMA 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 gamma moment and modified moment estimates are computed using the codes provided on pages 363-364 of Cohen and Whitten.
<SUBSET/EXCEPT/FOR qualification> where <x> is the variable containing the summary statistics; <y> is a variable containing the gamma moment estimates; and where the <SUBSET/EXCEPT/FOR qualification> is optional and rarely used for this command.
. Purpose: Test GAMMA MOMEMNT 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.3235
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 = gamma 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 gammamom = y(3); let gammamom = round(gammamom,numdec)
let locmmom = y(4); let locmmom = round(locmmom,numdec)
let scalmmom = y(5); let scalmmom = round(scalmmom,numdec)
let gammmmom = y(6); let gammmmom = round(gammmmom,numdec)
.
let xmean = round(xmean,numdec)
let xsd = round(xsd,numdec)
let xskew = round(xskew,numdec)
let xmin = round(xmin,numdec)
.
print "Gamma 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 Gamma Moment Estimates:"
print "Location: ^locmom"
print "Scale: ^scalemom"
print "Shape: ^gammamom"
print " "
print " "
print "3-Parameter Gamma Modified Moment Estimates:"
print "Location: ^locmmom"
print "Scale: ^scalmmom"
print "Shape: ^gammmmom"
The following output is generated.
Gamma Parameter Estimates From Summary Data
Sample Mean: 0.42313
Sample SD: 0.12528
Sample Skewness: 1.06732
Sample Minimum: 0.265
Sample Size: 20
3-Parameter Gamma Moment Estimates:
Location: 0.18837
Scale: 0.06686
Shape: 3.51129
3-Parameter Gamma Modified Moment Estimates:
Location: 0.20962
Scale: 0.07351
Shape: 2.90435
|
Privacy
Policy/Security Notice
NIST is an agency of the U.S.
Commerce Department.
Date created: 06/23/2014 | |||||||||||||||||||||||||||||||||||||||||||||||||||