Nothing
test_that("summary.netSEMp1 is showing correct output", {
p1_ans <- netSEMp1(acrylic)
expect_length(summary(p1_ans), nrow(p1_ans$table))
})
test_that("summary.netSEMp2 is showing correct output", {
p2_ans <- netSEMp2(acrylic)
expect_length(summary(p2_ans), nrow(p2_ans$res.print))
})
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.