R/assertions.R

Defines functions is_amino_acid is_peptide_sequence

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))
  })
}
jeanmanguy/peptr documentation built on Feb. 3, 2020, 12:04 a.m.