# NOT RUN {
grav2 <- read_cross2(system.file("extdata", "grav2.zip", package="qtl2"))
# }
# NOT RUN {
dr <- sim_geno(grav2, n_draws=4)
# keep just individuals 1:5, chromosome 2
drsub <- dr[1:5,2]
# keep just chromosome 2
drsub2 <- dr[,2]
# }
Run the code above in your browser using DataLab