Simulator = R6::R6Class("Simulator",
inherit = CoreStructure,
# private
private = list(
data = NULL
),
# public
public = list(
initialize = function(theta, b, a) {
private$theta = theta
private$parameters = cbind(b, a)
}
),
# active bindings
active = list(
get.data = function() { return(private$data) }
)
) # Simulator
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.