Description Usage Arguments Examples
Title
1 |
data.ld |
|
debug1 |
|
theta.start |
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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.