## Create a dataset for two markers with each 3 observed alleles
epgdf <- data.frame(marker = rep(c("FGA", "TH01"), each = 3),
allele = c(18, 23, 27, 7, 8, 9.3), ## Observed alleles
height = c(100, 100, 200, 200, 100, 100), ## Peak heights
Anna = c(0,0,2,1,0,1), ## Anna's profile
Peter = c(1,1,0,1,1,0)) ## Peter's profile
data(USCaucasian)
dat <- DNAmixtureData(epgdf, K = c("Anna", "Peter"), database = USCaucasian)
Run the code above in your browser using DataLab