added gwas.R run.R