R/GERule_Concat.R

In fnoorian/gramEvol: Grammatical Evolution for R

Defines functions c.GERule GERule.Concat

Documented in c.GERule

GERule.Concat <- function(x,y) {
  c(x,y)
}



`+.GERule` <- GERule.Concat
c.GERule <- function(..., recursive = FALSE) {
  l = list(...)
  
  ret = l[[1]]
  if (length(l) > 1) {
    for (i in 2:length(l)) {
      ret = GERule.Concat(ret, l[[i]])
    }
  }
  
  ret
}