#' To find the scores between strings using ape distance
#' @param sequences a list of character vectors, the sequences we are analysing
#' @return A dist object of the pairwise K-80 distances between the sequences
#' @export
stringdist_ape <- function(sequences)
{
tryCatch({
ans <- ape::dist.dna(ape::as.DNAbin(sequences))
},
error = function(e) {
print(sequences)
print("Error")
print(e)
ans <- NULL
},
warning = function(w)
{
print(w)
}
)
return(ans)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.