library(qtl)
data(hyper)
# write to tidy format
write.cross(hyper, "tidy", "hyper_tidy")
# read back in
x <- read.cross("tidy", "", genfile="hyper_tidy_gen.csv",
mapfile="hyper_tidy_map.csv", phefile="hyper_tidy_phe.csv",
genotypes=c("BB", "BA", "AA"))
# compare results
comparecrosses(x, hyper)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.