## Purpose: Test script for pedgene package
## Testing a simple 10-variant gene on both the X chrom and autosome
## Authors: Dan Schaid and Jason Sinnwell
## Created: 19-AUG-2013
## Updated: 11/7/2013

require(CompQuadForm)


davies(144, c(20,10, 5, 1, .4, .1), acc=1e-4)

davies(144, c(20,10, 5, 1, .4, .1), acc=1e-6)

davies(144, c(15,8, 5, 1, .4, .1), acc=1e-6)