# Load the simulated data.
data(trio.data)
# The Parent-of-Origin Likelihood Ratio Test can be applied
# to the SNPs in mat.test by
po.out <- colPOlrt(mat.test)
# The Transmission Asymmetry Test can be applid to the SNPs
# in mat.test by
tat.out <- colTAT(mat.test)
# By default, statistics for the top 5 SNPs are displayed.
# If another number of SNPs, say 10, should be displayed,
# then this can be done by
print(po.out, top = 10)
# The statistics for all SNPs (not ordered by their
# significance) can be obtained by
print(po.out, top = 0)
Run the code above in your browser using DataLab