## Not run:
# library(AncestryMapper)
#
# HGDP_References <- system.file('extdata',
# 'HGDP_References.txt',
# package = 'AncestryMapper')
#
#
# HGDP_500SNPs <- system.file('extdata',
# 'HGDP_500SNPs.ped',
# package = 'AncestryMapper')
#
# Corpheno <- system.file('extdata',
# 'CorPheno',
# package = 'AncestryMapper')
#
# genetic.distance <- calculateAMids(pedtxtFile = HGDP_500SNPs,
# fileReferences = HGDP_References)
#
# plotAMids(AMids = genetic.distance, phenoFile = Corpheno, columnPlot = "I")
# ## End(Not run)
Run the code above in your browser using DataLab