Create current_qtl_script.R