R/Data.R

In blockForest: Block Forests: Random Forests for Blocks of Clinical and Omics Covariate Data

Data <- 
  setRefClass("Data", 
              fields = list(
                data = "data.frame", 
                ncol = "integer", 
                nrow = "integer",
                names = "character"),  
              methods = list(
                
                initialize = function(...) {
                  callSuper(...)
                  ncol <<- ncol(data)
                  nrow <<- nrow(data)
                  names <<- colnames(data)
                },
                
                column = function(col) {
                  return(data[, col])   
                }, 
                
                subset = function(row, col) {
                  return(data[row, col])
                })
  )