Nothing
context("MLH")
# loading microsat data
data(mouse_msats)
msats <- convert_raw(mouse_msats)
test_that("sMLH is correct", {
expect_equal(mean(MLH(msats)), 0.5959596, tolerance = 0.001)
expect_equal(sd(MLH(msats)), 0.1663811, tolerance = 0.001)
})
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.