Nothing
context("est_map gives same results w/ lowmem=T or F")
test_that("est_map2 works with intercross", {
iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
iron <- iron[1:20,c(3,19,"X")]
map_lomem <- est_map(iron, lowmem=TRUE)
map_himem <- est_map(iron, lowmem=FALSE)
expect_equal(map_himem, map_lomem)
})
test_that("est_map2 works with RIL by selfing", {
skip_on_cran()
grav2 <- read_cross2(system.file("extdata", "grav2.zip", package="qtl2"))
grav2 <- grav2[,4:5]
map_lomem <- est_map(grav2, lowmem=TRUE)
map_himem <- est_map(grav2, lowmem=FALSE)
expect_equal(map_himem, map_lomem)
})
test_that("est_map2 works with a backcross with both sexes", {
skip_on_cran()
library(qtl)
data(hyper)
set.seed(35288832)
hyper$pheno$sex <- factor(sample(c("female", "male"), nind(hyper), replace=TRUE))
hyper <- convert2cross2(hyper)
hyper <- hyper[,c(4,19,"X")]
map_lomem <- est_map(hyper, lowmem=TRUE)
map_himem <- est_map(hyper, lowmem=FALSE)
expect_equal(map_himem, map_lomem)
})
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.