Nothing
context("Test read.Genepop and read.Structure")
test_that("read.Genepop imports Genepop file as a list", {
expect_output(str(read.Genepop("testData/GenepopEx1.txt")), "List of 3")
expect_output(str(read.Genepop("testData/GenepopEx1.txt", pop.names = c("A","B","C"))), "List of 3")
expect_output(str(read.Genepop("testData/GenepopEx1.txt", pop.names = c("A","B","C"), haploid = T)), "List of 3")
expect_output(str(read.Genepop("testData/GenepopEx2.txt")), "List of 3")
})
test_that("read.Structure imports Structure file as a list",{
expect_output(str(read.Structure("testData/StructureEx1.txt")),"List of 3")
expect_output(str(read.Structure("testData/StructureEx1.txt", ploidy = 2)),"List of 3")
expect_output(str(read.Structure("testData/StructureEx2.txt")),"List of 3")
expect_output(str(read.Structure("testData/StructureEx2.txt", ploidy = 2)),"List of 3")
})
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.