Nothing
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
)
)
}
}
))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.