attic/core.EASet.R

In jakobbossek/ecr3: Evolutionary Computation in R - Version 3

#FIXME: drop
EASet = R6Class("EASet",
  public = list(
    x = NULL,
    y = NULL,

    initialize = function(x, y) {
      self$x = x
      self$y = y
      invisible(self)
    },

    getSubset = function(idxs) {
      self$x = self$x[idxs]
      self$y = self$y[, idxs, drop = FALSE]
      invisible(self)
    },

    union = function(easet) {
      self$x = c(self$x, easet$x)
      self$y = cbind(self$y, easet$y)
      invisible(self)
    }
  ) # public
) # fitness