Nothing
context("find_consensus_geno")
test_that("find_consensus_geno works", {
g <- rbind(c("NA", "N", "A", "A", "T", "G", NA, "H"),
c("C", "C", "G", "G", "A", NA, NA, NA),
rep(NA, 8),
c("C", "C", "G", "G", "G", "C", "G", "G"))
expected <- c("A", NA, NA, "G")
expect_equal(find_consensus_geno(g), expected)
rownames(g) <- names(expected) <- paste0("mar", 1:4)
expect_equal(find_consensus_geno(g), expected)
})
test_that("find_consensus_geno works multi-core", {
if(isnt_karl()) skip("this test only run locally")
g <- rbind(c("NA", "N", "A", "A", "T", "G", NA, "H"),
c("C", "C", "G", "G", "A", NA, NA, NA),
rep(NA, 8),
c("C", "C", "G", "G", "G", "C", "G", "G"))
expected <- c("A", NA, NA, "G")
expect_equal(find_consensus_geno(g), expected)
expect_equal(find_consensus_geno(g, cores=2), expected)
rownames(g) <- names(expected) <- paste0("mar", 1:4)
expect_equal(find_consensus_geno(g), expected)
expect_equal(find_consensus_geno(g, cores=2), expected)
})
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.