# NOT RUN {
ncross1 <- sim.null.cross(chr.len = rep(100, 4),
n.mar = 51,
n.ind = 100,
type = "bc",
n.phe = 1000,
latent.eff = 3,
res.var = 1,
init.seed = 123457)
cross1 <- include.hotspots(cross = ncross1,
hchr = c(2, 3, 4),
hpos = c(25, 75, 50),
hsize = c(100, 50, 20),
Q.eff = 2,
latent.eff = 3,
lod.range.1 = c(2.5, 2.5),
lod.range.2 = c(5, 8),
lod.range.3 = c(10, 15),
res.var = 1,
n.phe = 1000,
init.seed = 12345)
# }
Run the code above in your browser using DataLab