## Not run:
# rbed_info = rbedInfo(bedstem = "mmp13", db_setup = FALSE)
# pl_gwas = plGwas(rbed_info,
# pheno = "mmp13.phe",
# pheno_name = "Page",
# gwas_tag = "mmp13_page_sex_age")
# runGwas(pl_gwas)
# x = readGwasOut(pl_gwas, c("SNP", "P"), rmGwasOut = FALSE)
# pl_gwas1 = assocFilter(pl_gwas, p_threshold = 0.001)
# runGwas(pl_gwas1)
# x1 = readGwasOut(pl_gwas1, c("SNP", "P"), rmGwasOut = FALSE)
# y = dplyr::inner_join(x, x1, by = "SNP")
# all(y$P.x == y$P.y)
# all(y$P.y < 0.001)
# ## End(Not run)
Run the code above in your browser using DataLab