Nothing
#' @include Statistic.R
PowerStatistic <- R6::R6Class("PowerStatistic",
inherit = Statistic,
public = list(
compute = function(measures_vector, target) {
return(mean(measures_vector >= target, na.rm = TRUE))
},
apply = function(measures_matrix, target) {
return(apply(measures_matrix, 2, self$compute, target = target))
}
)
)
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.