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)
reHetRun the code above in your browser using DataLab