Nothing
test_that('Basics.', {
trace = data.frame(time = 1:10, fund = 1:10, missing = rep(T, 10))
mt = measure.trace(trace)
expect_equal(mt$mean_fund_hz, 5.5)
expect_equal(mt$duration, 10)
expect_equal(mt$prop_missing_trace, 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.