context("functional sequences")
test_that("fseq functions work", {
a <- . %>% cos %>% sin %>% tan
b <- function(x) tan(sin(cos(x)))
expect_that(a(1:10), is_identical_to(b(1:10)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.