Error in format_radial(b_exp, b_out, se_exp, se_out) :
could not find function "format_radial"
library(TwoSampleMR)
ao <- available_outcomes()
exposure_dat <- extract_instruments(c('UKB-a:361','UKB-a:362','UKB-a:500'))
exposure_dat <- clump_data(exposure_dat)
outcome_dat <- extract_outcome_data(exposure_dat$SNP, c('299','300','301','302'), proxies = 1, rsq = 0.8, align_alleles = 1, palindromes = 0, maf_threshold = 0.3)
dat <- harmonise_data(exposure_dat, outcome_dat, action = 3)
mr_results <- mr(dat)