data(longreads)
seqs <- longreads$connection[1:15]
pad <- c(rep("0", 9), rep("", 6))
names(seqs) <- paste("LR", pad, 1:length(seqs), sep = "")
seqs <- seqs[!duplicated(seqs)]
mysub <- makeSubsMatrix(match = 2, mismatch = -6)
if (!requireNamespace("msa", quietly = TRUE)) {
warning("Cluster alignment is only available if the 'msa' package is installed.\n")
} else {
ab <- alignCluster(seqs, mysub)
image(ab)
}
Run the code above in your browser using DataLab