## demerelpop needs to be an object of class data.frame formatted
## according to inputformat. For each pairwise comparison in
## in the data.frame empirical estimates of relatedness are
## calculated omitting statistics.
data(demerelpop)
# As example Mxy is calculated for one population of demerelpop
demerelpop.sp <- split(demerelpop,demerelpop[,2])
empirical.result <- Emp.calc(demerelpop.sp[[1]], value="Mxy",
ref.pop="NA")
Run the code above in your browser using DataLab