register calc_impl() s3 methods (closes #523)

Author: simonpcouch

NAMESPACE

@@ -1,5 +1,24 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(calc_impl,Chisq)
+S3method(calc_impl,F)
+S3method(calc_impl,correlation)
+S3method(calc_impl,count)
+S3method(calc_impl,diff_in_means)
+S3method(calc_impl,diff_in_medians)
+S3method(calc_impl,diff_in_props)
+S3method(calc_impl,function_of_props)
+S3method(calc_impl,mean)
+S3method(calc_impl,median)
+S3method(calc_impl,odds_ratio)
+S3method(calc_impl,prop)
+S3method(calc_impl,ratio_of_means)
+S3method(calc_impl,ratio_of_props)
+S3method(calc_impl,sd)
+S3method(calc_impl,slope)
+S3method(calc_impl,sum)
+S3method(calc_impl,t)
+S3method(calc_impl,z)
 S3method(fit,infer)
 S3method(get_p_value,default)
 S3method(get_p_value,infer_dist)

R/calculate.R

@@ -295,12 +295,16 @@ calc_impl_one_f <- function(f) {
   }
 }
 
+#' @export
 calc_impl.mean <- calc_impl_one_f(mean)
 
+#' @export
 calc_impl.median <- calc_impl_one_f(stats::median)
 
+#' @export
 calc_impl.sum <- calc_impl_one_f(sum)
 
+#' @export
 calc_impl.sd <- calc_impl_one_f(stats::sd)
 
 calc_impl_success_f <- function(f, output_name) {
@@ -327,20 +331,23 @@ calc_impl_success_f <- function(f, output_name) {
   }
 }
 
+#' @export
 calc_impl.prop <- calc_impl_success_f(
   f = function(response, success, ...) {
     mean(response == success, ...)
   },
   output_name = "proportion"
 )
 
+#' @export
 calc_impl.count <- calc_impl_success_f(
   f = function(response, success, ...) {
     sum(response == success, ...)
   },
   output_name = "count"
 )
 
+#' @export
 calc_impl.F <- function(type, x, order, ...) {
   x %>%
     dplyr::summarize(
@@ -350,6 +357,7 @@ calc_impl.F <- function(type, x, order, ...) {
     )
 }
 
+#' @export
 calc_impl.slope <- function(type, x, order, ...) {
   x %>%
     dplyr::summarize(
@@ -359,6 +367,7 @@ calc_impl.slope <- function(type, x, order, ...) {
     )
 }
 
+#' @export
 calc_impl.correlation <- function(type, x, order, ...) {
   x %>%
     dplyr::summarize(
@@ -403,12 +412,16 @@ calc_impl_diff_f <- function(f, operator) {
   }
 }
 
+#' @export
 calc_impl.diff_in_means <- calc_impl_diff_f(mean, operator = `-`)
 
+#' @export
 calc_impl.diff_in_medians <- calc_impl_diff_f(stats::median, operator = `-`)
 
+#' @export
 calc_impl.ratio_of_means <- calc_impl_diff_f(mean, operator = `/`)
 
+#' @export
 calc_impl.Chisq <- function(type, x, order, ...) {
   resp_var <- response_name(x)
 
@@ -464,6 +477,7 @@ calc_impl.Chisq <- function(type, x, order, ...) {
   )
 }
 
+#' @export
 calc_impl.function_of_props <- function(type, x, order, operator, ...) {
   col <- response_expr(x)
   success <- attr(x, "success")
@@ -501,14 +515,17 @@ calc_impl.function_of_props <- function(type, x, order, operator, ...) {
   res
 }
 
+#' @export
 calc_impl.diff_in_props <- function(type, x, order, ...) {
   calc_impl.function_of_props(type, x, order, operator = `-`, ...)
 }
 
+#' @export
 calc_impl.ratio_of_props <- function(type, x, order, ...) {
   calc_impl.function_of_props(type, x, order, operator = `/`, ...)
 }
 
+#' @export
 calc_impl.odds_ratio <- function(type, x, order, ...) {
   col <- response_expr(x)
   success <- attr(x, "success")
@@ -524,6 +541,7 @@ calc_impl.odds_ratio <- function(type, x, order, ...) {
     dplyr::select(stat)
 }
 
+#' @export
 calc_impl.t <- function(type, x, order, ...) {
   if (theory_type(x) == "Two sample t") {
     x <- reorder_explanatory(x, order)
@@ -556,6 +574,7 @@ calc_impl.t <- function(type, x, order, ...) {
   df_out
 }
 
+#' @export
 calc_impl.z <- function(type, x, order, ...) {
   # Two sample proportions
   if (theory_type(x) == "Two sample props z") {