Nothing
# test input/output in mapqtl format
library(qtl)
data(fake.4way)
write.cross(fake.4way, "mapqtl", "fake_4way_mapqtl")
x <- read.cross("mapqtl", "", genfile="fake_4way_mapqtl.loc",
phefile="fake_4way_mapqtl.qua",
mapfile="fake_4way_mapqtl_female.map")
x <- replace.map(x, pull.map(fake.4way))
comparecrosses(x, fake.4way)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.