# NOT RUN {
grav2 <- read_cross2(system.file("extdata", "grav2.zip", package="qtl2"))
# }
# NOT RUN {
probs <- calc_genoprob(grav2, error_prob=0.002)
e <- calc_entropy(probs)
e <- do.call("cbind", e) # combine chromosomes into one big matrix
# summarize by individual
mean_ind <- rowMeans(e)
# summarize by marker
mean_marker <- colMeans(e)
# }
Run the code above in your browser using DataLab