is_amino_acid <- function(x) {
x %in% amino_acids
}
is_peptide_sequence <- function(x) {
characters <- strsplit(x, NULL)
sapply(characters, function(x) {
all(is_amino_acid(x))
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.