## Not run:
# dat1 = readPlinkOut("assoc/mmp13.assoc")
# dat2 = readAssoc("assoc/mmp13.assoc")
# all(na.omit(dat1 == dat2))
# dat1 = readPlinkOut("assoc/mmp13.assoc", c("CHR", "SNP", "P", "OR"))
# dat2 = readAssoc("assoc/mmp13.assoc", c("CHR", "SNP", "P", "OR"))
# all(na.omit(dat1 == dat2))
# dat1 = readPlinkOut("assoc/mmp13.qassoc")
# dat2 = readQassoc("assoc/mmp13.qassoc")
# all(na.omit(dat1 == dat2))
# dat1 = readPlinkOut("assoc/mmp13.qassoc", c("CHR", "SNP", "P", "R2"))
# dat2 = readQassoc("assoc/mmp13.qassoc", c("CHR", "SNP", "P", "R2"))
# all(na.omit(dat1 == dat2))
# ## End(Not run)
Run the code above in your browser using DataLab