1.本地ld_clumping#详细地址:Running local LD operations • ieugwasr
library(ieugwasr)
?ld_clump
MBG_exp_dat_clumping=ld_clump(
dplyr::tibble(rsid=metabolites$SNP, pval=metabolites$pval.exposure, id=$id),
plink_bin = 'C:/Users/DELL/Documents/R/win-library/4.1/plinkbinr/bin/plink_Windows.exe',
bfile = ".//EUR//EUR",#链接:http://fileserve.mrcieu.ac.uk/ld/1kg.v3.tgz
clump_kb = 1000,
clump_r2 = 0.001
)
2. F统计量计算
2.1.利用TwoSampleMR包计算R值.#Estimate Rsq from beta, standard error and sample size — get_r_from_bsen • TwoSampleMR
metabolites_clumping = mutate(MBG_exp_dat_clumping,R=get_r_from_bsen(MBG_exp_dat_clumping$beta.exposure, MBG_exp_dat_clumping$se.exposure, MBG_exp_dat_clumping$samplesize.exposure))
2.2. F统计量计算:孟德尔随机化F值计算 - 知乎
F = (N-k-1)/k * R2/(1-R*R)
metabolites_clumping = mutate(metabolites_clumping,F=(samplesize.exposure-2)*((R*R)/(1-R*R)))