Nothing
context("test-make-formula.R")
test_that("make.formula works", {
model <- c("y1 ~ x1 + x2 + x3", "y2 ~ x1 + x2 + x3")
vars.temp <- paste0("x", 1:3)
y <- paste0("y", 1:2)
out <- make.formula(y, vars.temp)
expect_equal(out, noquote(model))
})
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.