Description Usage Arguments Examples
Title
1 2 3 4 5 6 7 8 9 10 11 |
theCumulativePredictTable |
|
lty |
|
lwd |
|
add |
|
plot.what |
|
plot.points |
|
my.title |
|
xlim |
|
ylim |
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 49 50 51 | ## 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")
# Strict vs. no warranty enforcement (Weibull distribution)
PlotCumulativePredictTable(DeviceN.NoEnforce.weib,
plot.what = "density",
ylim = c(0,NA))
PlotCumulativePredictTable(DeviceN.Enforced.weib,
plot.what = "density",
add = TRUE,
lty = 3,
lwd = 3)
PlotCumulativePredictTable(DeviceN.NoEnforce.weib,
plot.what = "cumulative")
PlotCumulativePredictTable(DeviceN.Enforced.weib,
plot.what = "cumulative",
add = TRUE,
lty = 3,
lwd = 3)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.