Gamma.mle: Title

Description Usage Arguments Examples

Description

Title

Usage

1
Gamma.mle(data.ld, debug1 = F, theta.start = NULL)

Arguments

data.ld
debug1
theta.start

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
## Not run: 

berkson200.ld <- frame.to.ld(berkson200,
                             response.column = c(1,2),
                             censor.column = 3,
                             case.weight.column = 4,
                             time.units = "1/5000 Seconds")

summary(berkson200.ld)

plot(berkson200.ld)
plot(berkson200.ld, dist = "gamma", shape = 0.5)
plot(berkson200.ld, dist = "gamma", shape = 5)

berkson200.mle.gam <- Gamma.mle(berkson200.ld)

LocomotiveControl.ld <- frame.to.ld(locomotivecontrol,
                                    response.column = 1, 
                                    censor.column = 2,
                                    case.weight.column = 3,
                                    time.units = "kMiles")
                                    
LocomotiveControl.gamma.gmle.out <- Gamma.mle(LocomotiveControl.ld)

summary(bear.gamma.gmle.out)

gmleprobplot(LocomotiveControl.ld,
             distribution = "gamma", 
             xlim = c(10,199),
             ylim = c(.0011,.991))
             
bkfatigue10.ld <- frame.to.ld(bkfatigue10, 
                              response.column = 1,
                              time.units = "Kilocycles")

summary(bkfatigue10.ld)

bkfatigue10.gamma.gmle.out <- Gamma.mle(bkfatigue10.ld)

gmleprobplot(bkfatigue10.ld,
             distribution = "gamma",
             compare = c("Lognormal"))

gmleprobplot(bkfatigue10.ld,
             distribution = "Lognormal",
             compare = c("gamma"))

## End(Not run)

Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.