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