Nothing
cat("tests_contingency.R:\n")
testthat::test_that("struc() output", {
locinfile <- genepopExample('structest.txt')
outfile <- struc(locinfile)
testthat::expect_equal(readLines(outfile)[34],
"P value=0.598782 S.E=0.006606 (243439 switches)")
})
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.