demo/ArrayData.R

SampleArrayData <- R6Class(
  inherit = ArrayData,
  public = list(
    initialize = function(data){
      if('array' %in% class(data)){
        private$.arr = data
        private$.dims = dim(data)
        private$.ndim = length(private$.dim)
        private$.dnames = dimnames(data)
      }
    }
  )
)
HopkinsIDD/ForecastFramework documentation built on Nov. 10, 2019, 2:15 a.m.