R/is_amino_acid.R

In grantham: Calculate the 'Grantham' Distance

Defines functions all_amino_acids is_amino_acid

#' @keywords internal
is_amino_acid <- function(x) {
  x %in% amino_acids()
}

#' @keywords internal
all_amino_acids <- function(x) {
  all(is_amino_acid(x))
}

Try the grantham package in your browser