R/acceptance.R

In sourceR: Fits a Non-Parametric Bayesian Source Attribution Model

Acceptance = R6::R6Class("acceptance",
                         public = list(
                           alpha = NULL,
                           r = NULL,
                           initialize = function(nSources,
                                                 nTimes,
                                                 nLocations,
                                                 nTypes,
                                                 namesSources,
                                                 namesTimes,
                                                 namesLocations,
                                                 namesTypes,
                                                 updateSchema) {
                             if ('alpha' %in% updateSchema) {
                               self$alpha <- array(
                                 dim = c(nSources,
                                         nTimes,
                                         nLocations),

                                 dimnames = list(
                                   source = namesSources,
                                   time = namesTimes,
                                   location = namesLocations
                                 )
                               )
                             }

                             if ('r' %in% updateSchema) {
                               self$r <- array(
                                 dim = c(nTypes,
                                         nSources,
                                         nTimes),
                                 dimnames = list(
                                   type = namesTypes,
                                   source = namesSources,
                                   time = namesTimes
                                 )
                               )
                             }
                           }
                         ))