Description Usage Arguments Examples
Title
1 2 3 4 5 6 | CumulativePredictTable(
mlest.out,
time.increment,
number.time.units.ahead,
warranty.time
)
|
mlest.out |
|
time.increment |
|
number.time.units.ahead |
|
warranty.time |
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 | ## Not run:
# No warranty enforcement
DeviceN.NoEnforce.weib <-
CumulativePredictTable(DeviceN.mlest.weib,
time.increment = 1,
number.time.units.ahead = 50,
warranty.time = 1000)
PlotCumulativePredictTable(DeviceN.NoEnforce.weib,
plot.what = "density")
PlotCumulativePredictTable(DeviceN.NoEnforce.weib,
plot.what = "cumulative")
# Strict warranty enforcement
DeviceN.Enforced.weib <-
CumulativePredictTable(DeviceN.mlest.weib,
time.increment = 1,
number.time.units.ahead = 50,
warranty.time = 36)
PlotCumulativePredictTable(DeviceN.Enforced.weib,
plot.what = "density")
PlotCumulativePredictTable(DeviceN.Enforced.weib,
plot.what = "cumulative")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.