# Load the simulated data.
data(trio.data)
# Cordell's LRT for all pairs of SNPs in mat.test can be performed
# and the values of the LRT statistic for 10 permutations of the
# case-pseudo-controls status can be computed by
gxg <- colGxGPerms(mat.test, n.perm = 10)
# where we here consider only 10 permutations to keep the computing
# time of this example small. Usually, at least a few thousand
# permutations should be considered.
Run the code above in your browser using DataLab