# R6 class template
library(R6)
#' xxx
#'
#' blablabla
#'
#' @export
xxx <- R6Class("xxx",
public = list(
initialize = function(name, ...) {
self$name <- name
},
print = function(...) {
cat("Model factor (estim probas:", self$estim_probas,
", estim quantiles:", self$estim_quantiles,
", estim weights:", self$estim_weights,
", dist:", self$dist,
"(", self$dist_fitted_params, ")",
" )\n",
sep = "")
invisible(self)
},
get_random = function(n, ...) {
stop("function was not initialized")
},
get_density = function(x, ...) {
}
),
active = list(
dist = function(value,...) {
if(missing(value)) {
return(private$private_dist) }
else {
private$private_dist <- value }
},
dist_fitted_params = function(value, ...) {
if(missing(value)) return(private$private_dist_fitted_params)
else {
private$private_dist_fitted_params <- value
}
}
),
private = list(
private_dist = NULL,
private_dist_fitted_params = NULL
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.