Nothing
context("Function Symbol")
test_that("Function works", {
f <- Function("f")
expect_true(get_type(f("x")) == "FunctionSymbol")
})
test_that("FunctionSymbol works", {
f <- Function("f")
f_x <- FunctionSymbol("f", c("x"))
expect_true(f_x == f("x"))
expect_true(f_x == S("f(x)"))
})
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.