# below we read an allele freqs and sample a genotype
filename <- system.file("extdata","FBI_extended_Cauc.csv",
package = "simDNAmixtures")
freqs <- read_allele_freqs(filename)
# sample parents
father <- sample_genotype(freqs, loci = c("D3S1358", "vWA"))
mother <- sample_genotype(freqs, loci = c("D3S1358", "vWA"))
# sample child
child <- sample_offspring(father, mother)
Run the code above in your browser using DataLab