Nothing
test_that("Construct coefficient names", {
name_lag <- concatenate_colnames(c("x", "y"), 1:2, FALSE)
expect_equal(name_lag, c("x_1", "y_1", "x_2", "y_2"))
})
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.