# Vectors:
obs <- seq(10000, 100000, 10000)
state <- rep(1, length(obs))
uic <- c("3435", "1203", "958X", "XX71", "abcd", "tz46",
"fl29", "AX23", "Uy12", "kl1a")
# Example 1 - Benard's approximation:
tbl_mr <- mr_method(
x = obs,
status = state,
id = uic,
method = "benard"
)
# Example 2 - Inverse beta distribution:
tbl_mr_invbeta <- mr_method(
x = obs,
status = state,
method = "invbeta"
)
Run the code above in your browser using DataLab