## Not run:
# gwas_tag = "mmp13_page_sex_age"
# rbed_info = rbedInfo(bedstem = "mmp13")
# pl_gwas = plGwas(rbed_info,
# pheno = "mmp13.phe",
# pheno_name = "Page",
# covar_name = "Sex,Cage",
# gwas_tag = gwas_tag)
# runGwas(pl_gwas)
# "mmp13_page_sex_age" %in% listGwasTags() == "TRUE"
# gwas_out = readGwasOut(pl_gwas, rmGwasOut = FALSE)
# colClasses(gwas_out) == c("integer", "character", "integer",
# "character", "character", "integer",
# "numeric", "numeric", "numeric")
# ## End(Not run)
Run the code above in your browser using DataLab