## Not run:
# library(AncestryMapper)
# Refs <- system.file ("data", package = "AncestryMapper")
#
# tpeds <- system.file ("extdata", package = "AncestryMapper")
#
# Corpheno <- system.file ("extdata", "CorPheno", package =
# "AncestryMapper")
#
# All00Frq <- system.file ("data", "MinMaxFreq.rda", package = "AncestryMapper")
#
# genetic.distance <- calculateAMidsArith(pathTotpeds = tpeds,
# NameOut = "Example",
# pathToAriMedoids = Refs,
# pathAll00 = All00Frq)
#
# plotAMids(AMids = genetic.distance, phenoFile = Corpheno, columnPlot = "I")## End(Not run)
Run the code above in your browser using DataLab