fl <- flash_init(gtex) %>%
flash_set_timeout(1, "secs") %>%
flash_greedy(Kmax = 30) %>%
flash_backfit() %>%
flash_nullcheck() %>%
flash_clear_timeout() # Always clear timeout at the end of a pipeline.
Run the code above in your browser using DataLab