# NOT RUN {
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))
# }
# NOT RUN {
## The result is a data frame
tibble:::print.tbl(scp)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab