## Not run:
# library(VariantFiltering)
#
# 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)
# reHo <- autosomalRecessiveHomozygous(param)
# reHo
# ## End(Not run)
Run the code above in your browser using DataLab