if (FALSE) {
# 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")
}
Run the code above in your browser using DataLab