knitr::opts_chunk$set( collapse = TRUE, comment = "#>", eval=FALSE )
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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.