## Locate input FASTA file-------------------------------------------------------------------------
fastafilepath <- system.file("extdata", "gaprichfast.fasta", package = "longreadvqs")
## Indicate output directory and file name---------------------------------------------------------
outfast <- tempfile()
## Remove positions with gap >= 60% and reads/sequences with gap >= 10%----------------------------
gapremove(fastafilepath, vgappct = 60, hgappct = 10, fastaname = outfast)
Run the code above in your browser using DataLab