CumulativePredictTable: Title

Description Usage Arguments Examples

Description

Title

Usage

1
2
3
4
5
6
CumulativePredictTable(
  mlest.out,
  time.increment,
  number.time.units.ahead,
  warranty.time
)

Arguments

mlest.out
time.increment
number.time.units.ahead
warranty.time

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
## 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)

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