R/is_dnds_estimator.R

In drostlab/homologr: Homology inference across multiple species

is_dnds_estimator <- function(method = NULL){

  provided <- c("Li")

  if (is.null(method)){
    message("The followig methods are provided: ", paste0(provided, collapse = ", "))
    return(FALSE)
  }

  return(is.element(method, provided))
}