# Reliability data:
data <- reliability_data(
alloy,
x = cycles,
status = status
)
# Example 1 - Johnson method:
prob_tbl <- estimate_cdf(
x = data,
methods = "johnson"
)
# Example 2 - Multiple methods:
prob_tbl_2 <- estimate_cdf(
x = data,
methods = c("johnson", "kaplan", "nelson")
)
# Example 3 - Method 'mr' with options:
prob_tbl_3 <- estimate_cdf(
x = data,
methods = "mr",
options = list(
mr_method = "invbeta",
mr_ties.method = "average"
)
)
# Example 4 - Multiple methods and options:
prob_tbl_4 <- estimate_cdf(
x = data,
methods = c("mr", "johnson"),
options = list(
mr_ties.method = "max",
johnson_method = "invbeta"
)
)
Run the code above in your browser using DataLab