data(longreads)
sequences <- longreads$connection[1:30] # named character vector
sequences <- sequences[!duplicated(sequences)] # dedup
sc <- SequenceCluster(sequences) # cluster
plot(sc) # visualize
sc <- updateClusters(sc, NC = 7)
plot(sc, type = "unrooted")
Run the code above in your browser using DataLab