Description Usage Arguments Examples
Title
1 2 3 4 5 6 7 | PredictTable(
mlest.out,
FtimeStart,
FtimeEnd,
warranty.time = Inf,
print.total = TRUE
)
|
mlest.out |
|
FtimeStart |
|
FtimeEnd |
|
warranty.time |
|
print.total |
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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.