# Vectors:
obs <- seq(10000, 100000, 10000)
state <- c(0, 1, 1, 0, 0, 0, 1, 0, 1, 0)
state_2 <- c(0, 1, 1, 0, 0, 0, 1, 0, 0, 1)
uic <- c("3435", "1203", "958X", "XX71", "abcd", "tz46",
"fl29", "AX23","Uy12", "kl1a")
# Example 1 - Observation with highest characteristic is an intact unit:
tbl_kap <- kaplan_method(
x = obs,
status = state,
id = uic
)
# Example 2 - Observation with highest characteristic is a defective unit:
tbl_kap_2 <- kaplan_method(
x = obs,
status = state_2
)
Run the code above in your browser using DataLab