## Not run:
# ## load simulated data
# ## markers have fixed differences, with
# ## alleles coded as 'P1' and 'P2'
# data(AdmixDataSim1)
# data(LociDataSim1)
#
# ## use prepare.data to produce introgress.data
# introgress.data<-prepare.data(admix.gen=AdmixDataSim1,
# loci.data=LociDataSim1,
# parental1="P1", parental2="P2",
# pop.id=FALSE, ind.id=FALSE,
# fixed=TRUE)
#
# ## Estimate inter-specific heterozygosity
# int.het<-calc.intersp.het(introgress.data=introgress.data)
# ## End(Not run)
Run the code above in your browser using DataLab