if (FALSE) {
# Define arguments
fasta_input <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small.fasta")
# De-replicating
derep.tbl <- vs_fastx_uniques(fasta_input, output_format = "fasta")
# Clustering subsequences
cluster.tbl <- vs_cluster_subseq(fasta_input = derep.tbl)
# Cluster sequences and write centroids to a file
vs_cluster_subseq(fasta_input = derep.tbl,
centroids = "distinct.fa")
}
Run the code above in your browser using DataLab