freqs <- read_allele_freqs(system.file("extdata","FBI_extended_Cauc.csv",
package = "simDNAmixtures"))
data(gf)
ped_sibs <- pedtools::nuclearPed(children = c("S1", "S2"))
sibs_genotypes <- sample_pedigree_genotypes(ped = ped_sibs,
freqs = freqs, loci = gf$autosomal_markers)
Run the code above in your browser using DataLab