## Not run:
#
# data(hla)
# x <- hla[,3:8]
#
# # do not handle missing data
# y<-pgc(x,handle.miss=0,with.id=1)
# hla.gc<-genecounting(y$cdata,y$wt,handle.miss=0)
#
# # handle missing but with multilocus genotype identifier
# pgc(x,handle.miss=1,with.id=1)
#
# # handle missing data with no identifier
# pgc(x,handle.miss=1,with.id=0)
# ## End(Not run)
Run the code above in your browser using DataLab