Nothing
#' @include PowerStatistic.R
StatisticFactory <- R6::R6Class("StatisticFactory",
public = list(
get_statistic = function(type) {
return(
switch(type,
power = PowerStatistic$new(),
stop(.__ERRORS__$not_developed)
)
)
}
)
)
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.