stopifnot(require("testthat"), require("lcc"))
context("running regular sequence")
test_that("runing regular sequence with experimental time from 0 to 10",{
time<-seq(0,10)
expected<-unique(sort(c(time,seq(0,10,length.out = 30))))
expect_equal(expected, time_lcc(time = time, from = 0, to = 10, n = 30))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.