## Not run:
#
# CEUvcf <- file.path(system.file("extdata", package="VariantFiltering"), "CEUtrio.vcf.bgz")
# CEUped <- file.path(system.file("extdata", package="VariantFiltering"), "CEUtrio.ped")
# param <- VariantFilteringParam(vcfFilenames=CEUvcf,
# pedFilename=CEUped)
# reHet <- autosomalRecessiveHeterozygous(param)
# reHet
# ## End(Not run)
Run the code above in your browser using DataLab