#---------------------------------
# Requires MERLIN to be installed
#---------------------------------
if(pedprobr::checkMerlin()) {
# Pedigree with a single marker
x = nuclearPed(3, sex = c(1,2,2)) |>
addMarker(geno = c("1/1", "1/2", "1/2", "1/2", "1/2"))
# Simple AD model
merlinLod(x, aff = 2:5, model = diseaseModel("AD"))
# With liability classes
mod = diseaseModel("AD", penetrances = cbind(f0 = 0, f1 = 1:0, f2 = 1:0))
merlinLod(x, aff = 2:4, mod, liability = c(1,1,1,1,2))
# X
merlinLod(x, aff = 3:5, model = diseaseModel("XR"))
}
Run the code above in your browser using DataLab