# NOT RUN {
## This example uses a small dataset stored in the MMD package
datafile <- system.file("extdata", "Campylobacter_10SNP_HlW.csv", package = "MMD")
popfile <- system.file("extdata", "Campylobacter_10SNP_HlW.pop", package = "MMD")
NL <- 100
sourcenames <- c("Cattle","Chicken","Pig","Sheep","WB")
EntropyLoci <- MMD_Entropy(datafile,popfile,NL,sourcenames)
## See more detailed examples in the vignette.
# }
Run the code above in your browser using DataLab