## Not run:
# 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