Nothing
context("matrix to strata")
test_that("mat2strata works", {
iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
Xcovar <- get_x_covar(iron)[c(1:3, 146:148, 215:217),]
expect_equal(mat2strata(Xcovar),
c("1"="1|0", "2"="1|0", "3"="1|0",
"146"="0|1", "147"="0|1", "148"="0|1",
"215"="0|0", "216"="0|0", "217"="0|0"))
})
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.