# Example usage:
library(Biostrings)
# Create an AAStringSet object with the sequences
seqs <- AAStringSet(c(
seq1 = "MKTIIALSYIFCLVFADYKDDDDK",
seq2 = "MKTIIALSYIFCLVFADYKDLLKDDDD",
seq3 = "MKTIIALSYIFCLVFADEELYKDDDD",
seq4 = "MKTIEIALSYIFCLVFADYKDDDD",
seq5 = "MKTIIKLAAASYIFCLVFADYKDDDD",
seq6 = "MKTIIALSKIPFCLVFADYKDDDD",
seq7 = "MKTIIALSYIFiQEERTCLVFADYKDDDD"
))
# Perform DBSCAN clustering and remove outliers
no_outliers <- phyl_tree_cluster_dbscan(seqs, cutoff = 0.5, nmin = 5)
Run the code above in your browser using DataLab