if (requireNamespace("MendelianRandomization", quietly = TRUE)) {
dat <- MendelianRandomization::mr_input(
bx = bmi_insulin$beta.exposure,
bxse = bmi_insulin$se.exposure,
by = bmi_insulin$beta.outcome,
byse = bmi_insulin$se.outcome,
snps = bmi_insulin$rsid
)
dat <- mrinput_mr_format(dat)
head(dat)
class(dat)
}
Run the code above in your browser using DataLab