library(visR)
adtte %>%
estimate_KM("SEX") %>%
visr() %>%
add_quantiles()
adtte %>%
estimate_KM("SEX") %>%
visr() %>%
add_quantiles(quantiles = c(0.25, 0.50))
adtte %>%
estimate_KM("SEX") %>%
visr() %>%
add_quantiles(
quantiles = c(0.25, 0.50),
linetype = "solid",
linecolour = "grey"
)
adtte %>%
estimate_KM("SEX") %>%
visr() %>%
add_quantiles(
quantiles = c(0.25, 0.50),
linetype = "mixed",
linecolour = "strata"
)
Run the code above in your browser using DataLab