PredictTable: Title

Description Usage Arguments Examples

Description

Title

Usage

1
2
3
4
5
6
7
PredictTable(
  mlest.out,
  FtimeStart,
  FtimeEnd,
  warranty.time = Inf,
  print.total = TRUE
)

Arguments

mlest.out
FtimeStart
FtimeEnd
warranty.time
print.total

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
## Not run: 

DeviceN.ld <- frame.to.ld(devicen,
                          response.column = "months", 
                          censor.column = "event",
                          case.weight.column = "counts")
                          
PredictTable(DeviceN.mlest.lnorm,
             FtimeStart = 0,
             FtimeEnd = 1)

PredictTable(DeviceN.mlest.lnorm,
             FtimeStart = 1,
             FtimeEnd = 2)

PredictTable(DeviceN.mlest.lnorm,
             FtimeStart = 0,
             FtimeEnd = 36)

PredictTable(DeviceN.mlest.lnorm,
             FtimeStart = 0,
             FtimeEnd = 36,
             warranty.time = 36)

DeviceN.mlest.weib <- mlest(DeviceN.ld,
                            dist = "Weibull")

PredictTable(DeviceN.mlest.weib,
             FtimeStart = 1,
             FtimeEnd = 2)

PredictTable(DeviceN.mlest.weib,
             FtimeStart = 0,
             FtimeEnd = 36)


## End(Not run)

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