knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(AnnoRE) locus_summary <- annotateREvariance(gwas_locus = locus_gwas_stats, annotation = locus_annotation, h2partition = ldsc_h2partition)
fine_mapping <- REestimate(loc_summary_df = locus_summary, trait_h2 = 0.13, loc_ld_matrix = NULL, loc_ld_file = system.file("extdata", "locus.1000G.loc.hap.ld", package = "AnnoRE")) #"../inst/extdata/rs3736485.1000G.loc.hap.ld") head(fine_mapping)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.