set.seed(123456)
ns <- 4 # Number of SNPs
N <- 2000 # Number of individuals
patid <- N:1
geno <- matrix(sample(c(1, 2, 3), ns * N, replace = TRUE), ncol = ns)
iteHAP <- itegeppXXR(geno, des = 1, lim = 0.01)
Run the code above in your browser using DataLab