library(cutpointr)
multi_cutpointr(suicide, x = c("age", "dsi"), class = suicide,
pos_class = "yes")
mcp <- multi_cutpointr(suicide, x = c("age", "dsi"), class = suicide,
subgroup = gender, pos_class = "yes")
mcp
(scp <- summary(mcp))
if (FALSE) {
## The result is a data frame
tibble:::print.tbl(scp)
}
Run the code above in your browser using DataLab