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