Nothing
test_that("dagify creates correct dagitty", {
test_dag <- dagify(y ~ x + z, x ~ z)
expect_equal(test_dag[[1]], "dag {\nx\ny\nz\nx -> y\nz -> x\nz -> y\n}\n")
expect_s3_class(test_dag, "dagitty")
})
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.