ShaPRS: Leveraging shared genetic effects across traits and ancestries improves accuracy of polygenic scores
Installation:
install_github("mkelcb/shaprs")
library("shaPRS")
proximalLoc <- system.file("extdata", "phenoA_sumstats", package = "shaPRS")
adjunctLoc <- system.file("extdata", "phenoB_sumstats", package = "shaPRS")
shaPRS(proximalLoc, adjunctLoc, "<YOUR_OUTPUT_FOLDER>")
Pop1LDRefLoc <- paste0(system.file("extdata", "", package = "shaPRS"), "/")
Pop2LDRefLoc <- paste0(system.file("extdata", "", package = "shaPRS"), "/")
blendFactorLoc <- system.file("extdata", "pop_SNP_lFDR", package = "shaPRS")
adjustinputLoc <- system.file("extdata", "pop_adjustinput", package = "shaPRS")
outputLoc <- "<YOUR LOCATION>"
shaPRS_LDGen(Pop1LDRefLoc, Pop2LDRefLoc, blendFactorLoc, adjustinputLoc, outputLoc)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.