R/GrammarIsTerminal.R

In fnoorian/gramEvol: Grammatical Evolution for R

Defines functions GrammarIsTerminal

Documented in GrammarIsTerminal

GrammarIsTerminal <- function(x) {
  
  if (class(x) != "GEPhenotype") {
    stop("Invalid Phenotype Class")
  }

  return (x$type == "T")
}