LD matrices

Components of GWAS summary data

library(simulateGP)
pop <- "EUR"
bfile <- paste0("/Users/gh13047/repo/mr-base-api/app/ld_files/", pop)

varref <- variant_reference(bfile)
regions <- get_regions(pop)

t1 <- Sys.time()
generate_ld_matrices(regions[1:2,], varref, bfile)
Sys.time()-t1

t1 <- Sys.time()
generate_ld_matrices2(regions[1:2,], varref, bfile)
Sys.time()-t1