powered by
varcov(x, ana.obj, partial=NULL, scope=<>
trait ~ locus(.)
analysis.object
make.analysis.obj
partial
sum(subset==TRUE) - 1
make.varcov
swap
twohk