inst/scripts/create_mouseL_dataset.R

# mouse chromosome lengths in cM
# taken from Cox et al 2009, doi:10.1534/genetics.109.105486
# (Table 1) these are the MGI lengths)

mouseL_cox <- c( "1"= 96.55,  "2"=101.82,  "3"=78.83,  "4"=84.13,  "5"=86.97,
                 "6"= 76.69,  "7"= 87.05,  "8"=73.96,  "9"=71.46, "10"=75.29,
                "11"= 80.85, "12"= 61.00, "13"=64.85, "14"=61.37, "15"=56.40,
                "16"= 54.73, "17"= 58.56, "18"=56.67, "19"=53.24,  "X"=76.16)

mouseL_mgi <- c( "1"=103.60,  "2"=107.00,  "3"=83.70,  "4"=82.70,  "5"=85.00,
                 "6"= 73.73,  "7"= 71.90,  "8"=72.00,  "9"=70.00, "10"=68.00,
                "11"= 78.75, "12"= 60.00, "13"=71.00, "14"=59.50, "15"=59.80,
                "16"= 68.95, "17"= 52.60, "18"=55.00, "19"=49.50,  "X"=72.50)

save(mouseL_cox, file="../../data/mouseL_cox.RData")
save(mouseL_mgi, file="../../data/mouseL_mgi.RData")

Try the simcross package in your browser

Any scripts or data that you put into this service are public.

simcross documentation built on May 29, 2024, 2:41 a.m.