data-raw/data-raw.R

In alexwhan/genomap: A set of tools for working with raw genotype calls and genetic maps

library(qtl)
library(mpMap)

set.seed(1234)
bp_map <- sim.map(len = sample(50:150, 6), n.mar = sample(30:70, 6), 
                  include.x = FALSE)

bp_cross <- sim.cross(bp_map, type = "f2")

m4_ped <- sim.mpped(4, 3, 1, 6, 6)

m4_cross <- sim.mpcross(bp_map, m4_ped)

m8_ped <- sim.mpped(8, 7, 1, 6, 6)

m8_cross <- sim.mpcross(bp_map, m8_ped)