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