Nothing
context("Testing AHR functionality")
test_that("Test AHR function", {
y <- c(rep(1, 10), rep(0, 10))
phat <- seq(1, 0, length = length(y))
Metric <- AHR(y, phat)
expect_equal(Metric, 1)
})
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.