Code
x <- as.data.frame(matrix(c(1, 0, 0, 2, 0.75, 0.25, 3, 1, 1), ncol = 3, byrow = TRUE,
dimnames = list(NULL, c("cutoff", "sensitivity", "specificity")), ))
expect_equal(get_optim_roc(x)$cutoff, 2)
Warning <lifecycle_warning_deprecated>
`get_optim_roc()` was deprecated in phylosamp 1.0.0.
i Please use `optim_roc_threshold()` instead.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.