## Locate input FASTA file-------------------------------------------------------------------------
fastafilepath <- system.file("extdata", "dissimfast.fasta", package = "longreadvqs")
## Indicate output directory and file name---------------------------------------------------------
outfast <- tempfile()
## Remove reads/sequences that the similarity < 1st quartile (0.25 quantile)-----------------------
filtfast(fastafilepath, qt = 0.25, fastaname = outfast)
Run the code above in your browser using DataLab