# NOT RUN {
# A pedigree with two siblings
x = nuclearPed(2)
# Attach 3 linked markers on chromosome 1
pos = c(20, 50, 70) # marker positions in megabases
mlist = lapply(pos, function(i)
marker(x, alleles = letters[1:10], chrom = 1, posMb = i))
x = setMarkers(x, mlist)
# Simulate the underlying IBD pattern in the pedigree
s = ibdsim(x, 1, map = uniformMap(M = 1, chrom = 1), seed = 123)[[1]]
# Simulate genotypes for the sibs conditional on the given IBD pattern
profileSimIBD(x, s, ids = 3:4, seed = 123)
# With a different seed
profileSimIBD(x, s, ids = 3:4, seed = 124)
# }
Run the code above in your browser using DataLab