2 去除连锁不平衡

#去除LD----------
library(TwoSampleMR)
exposureFile="exp_pvalue.csv"     #输入文件
setwd("E:/****")      #设置工作目录

#读取输入文件
exp_datP=vroom::vroom("exposureFile")

#去除连锁不平衡的SNP
exp_dat_clumped <-TwoSampleMR::clump_data(exp_dat, clump_kb=10000, clump_r2=0.001)
write.csv(exposure_dat_clumped, file="exp_LD.csv", row.names=F)