Nothing
context("sampling Temperatures")
test_that("edgelists of more than 3 columns are not allowed", {
# select temperatures
temperatures <- temperatureSample(start = 0.01, end = 20, n = 20, method = 'random')
# expectation
expect_false(is.unsorted(temperatures))
})
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.