## Not run:
#
# ## This actually won't run b/c in this trio de descendant is a female
# 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)
# xlid <- xLinked(param)
# xlid
# ## End(Not run)
Run the code above in your browser using DataLab