## Not run:
# # 4 SNP example, to generate hap.out and assign.out alone
# data(fsnps)
# hap(id=fsnps[,1],data=fsnps[,3:10],nloci=4)
#
# # to generate results of imputations
# control <- hap.control(ss=1,mi=5)
# hap(id=fsnps[,1],data=fsnps[,3:10],nloci=4,control=control)
#
# # to extract information from the second run above
# mia(so=1,ns=1,mi=5)
# file.show("mia.out")
#
# ## commands to check out where the output files are as follows:
# ## Windows
# # system("command.com")
# ## Unix
# # system("csh")
# ## End(Not run)
Run the code above in your browser using DataLab