tests/testthat/test-mat2strata.R
In rqtl/qtl2: Quantitative Trait Locus Mapping in Experimental Crosses
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"))
})
rqtl/qtl2 documentation built on March 20, 2024, 6:35 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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"))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.