Nothing
test_that("Matches MLmetrics", {
x <- c(1, 1.2, 1.6, 2)
y <- c(4, 3.8, 4.2, 5)
# MLmetrics::Area_Under_Curve(x, y, "trapezoid")
auc_known <- 4.22
expect_equal(auc(x, y), auc_known)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.