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