Closed yoonsucho closed 4 years ago
The N for available GWAS is 600 with revised condition
set_candidate_traits = function(id_list=NULL) { if(is.null(id_list)) { ao <- suppressMessages(TwoSampleMR::available_outcomes()) ids <- subset(ao, priority == 1 & nsnp > 10000000 & sample_size > 100000) %>% # have to go back to nsnp > 500000 & sample_size > 50000 important!!!!!!! arrange(desc(sample_size)) %>% filter(!duplicated(trait), mr == 1) %>% filter(!author %in% c("Shin", "Kettunen", "Roederer")) %>% filter(!grepl("ukb-b", id)) %>% filter(! id %in% c(dat$id.exposure[1], dat$id.outcome[1])) id_list <- ids$id message("Using default list of ", nrow(ids), " traits") } self$output$id_list <- id_list invisible(self$output$id_list) }
x$candidate_instruments() Finding instruments for candidate traits Requesting default values. Extracting from pre-clumped data 78 out of 108 requested outcomes have pre-calculated instruments. Extracting data from 30 GWAS(s) and performing LD clumping [>] 1 of 30 Error: lexical error: invalid char in json text.