# Define a DNA profile.
dnaProfile <- list(c("X","Y"),c(17,18),c(6,9.3),c(29,31.2),c(16,18),
c(13,15),c(12,13),c(22,25),c(9,13),
c(16,16),c(16,19),c(14,15),c(20,23),
c(10,14),c(18,23),c(13,14),c(15,16))
# Simulate.
simulateProfile(alleles=dnaProfile, kit="ESX17", simulations=5,
ncells=200, ncells.sd=20,
exprob=0.7, exprob.sd=0.1,
volume=200, volume.sd=20,
aliq=17.5, aliq.sd=1)
Run the code above in your browser using DataLab