root <- system.file("extdata", "sim-example", package = "brachypoder")
test_that("Read trait mean data", {
data <- read_trait_mean_data(root)
expect_equal(ncol(data), 4)
expect_true(all(names(data) == c("time", "deme", "patch", "x")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.