bfile_path = system.file("extdata", "demo", package = "hibayes")
data = read_plink(bfile_path)
geno = data$geno
map = data$map
# \donttest{
xx = ldmat(geno, threads=4, verbose=FALSE) #chromosome wide full ld matrix
# xx = ldmat(geno, chisq=5, threads=4) #chromosome wide sparse ld matrix
# xx = ldmat(geno, map, ldchr=FALSE, threads=4) #chromosome block ld matrix
# xx = ldmat(geno, map, ldchr=FALSE, chisq=5, threads=4) #chromosome block + sparse ld matrix
# }
Run the code above in your browser using DataLab