In MRCIEU/TwoSampleMR: Two Sample MR Functions and Interface to MR Base Database

library(devtools)
library(knitr)
load_all()


lipids <- mv_extract_exposures(c(299,300,302))
chd <- extract_outcome_data(lipids$SNP, 7)
control <- mv_harmonise_data(lipids, chd)

kable(mv_residual(control, intercept=TRUE, instrument_specific=TRUE)$result)

kable(mv_residual(control, intercept=FALSE, instrument_specific=TRUE)$result)

kable(mv_residual(control, intercept=TRUE, instrument_specific=FALSE)$result)

kable(mv_residual(control, intercept=FALSE, instrument_specific=FALSE)$result)

kable(mv_multiple(control, intercept=TRUE, instrument_specific=TRUE)$result)

kable(mv_multiple(control, intercept=FALSE, instrument_specific=TRUE)$result)

kable(mv_multiple(control, intercept=TRUE, instrument_specific=FALSE)$result)

kable(mv_multiple(control, intercept=FALSE, instrument_specific=FALSE)$result)

a <- mv_extract_exposures(c("UKB-a:196", 1001))
b <- extract_outcome_data(a$SNP, 297)
dat <- mv_harmonise_data(a, b)

kable(mv_residual(dat, intercept=TRUE, instrument_specific=TRUE)$result)

kable(mv_residual(dat, intercept=FALSE, instrument_specific=TRUE)$result)

kable(mv_residual(dat, intercept=TRUE, instrument_specific=FALSE)$result)

kable(mv_residual(dat, intercept=FALSE, instrument_specific=FALSE)$result)

kable(mv_multiple(dat, intercept=TRUE, instrument_specific=TRUE)$result)

kable(mv_multiple(dat, intercept=FALSE, instrument_specific=TRUE)$result)

kable(mv_multiple(dat, intercept=TRUE, instrument_specific=FALSE)$result)

kable(mv_multiple(dat, intercept=FALSE, instrument_specific=FALSE)$result)

kable(mv_ivw(dat)$result)

kable(mv_basic(dat)$result)

MRCIEU/TwoSampleMR documentation built on Sept. 28, 2024, 6:51 p.m.