Nothing
context("rwl tidiers")
library(dplR)
data('ca533')
crn <- chron(ca533)
test_that("conversion followed by backconversion equals initial object", {
expect_that(untidy_rwl(tidy_rwl(ca533)), equals(ca533))
expect_that(untidy_crn(tidy_crn(crn)), equals(crn))
})
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.