Fixes #196

spsanderson · May 27, 2022 · 45ce2e4 · 45ce2e4
1 parent 9a950d0
commit 45ce2e4
Show file tree

Hide file tree

Showing 36 changed files with 200 additions and 56 deletions.
diff --git a/R/stats-beta-tbl.R b/R/stats-beta-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_beta() %>%
-#'   util_beta_stats_tbl()
+#'   util_beta_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -71,7 +74,9 @@ util_beta_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = NA,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-binomial-tbl.R b/R/stats-binomial-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_binomial() %>%
-#'   util_binomial_stats_tbl()
+#'   util_binomial_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -73,7 +76,9 @@ util_binomial_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-cauchy-tbl.R b/R/stats-cauchy-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_cauchy() %>%
-#'   util_cauchy_stats_tbl()
+#'   util_cauchy_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -71,7 +74,9 @@ util_cauchy_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-chisquare-tbl.R b/R/stats-chisquare-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_chisquare() %>%
-#'   util_chisquare_stats_tbl()
+#'   util_chisquare_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -76,7 +79,9 @@ util_chisquare_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-exponential-tbl.R b/R/stats-exponential-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_exponential() %>%
-#'   util_exponential_stats_tbl()
+#'   util_exponential_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -72,7 +75,9 @@ util_exponential_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-f-tbl.R b/R/stats-f-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_f() %>%
-#'   util_f_stats_tbl()
+#'   util_f_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -90,7 +93,9 @@ util_f_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-gamma-tbl.R b/R/stats-gamma-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_gamma() %>%
-#'   util_gamma_stats_tbl()
+#'   util_gamma_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -70,7 +73,9 @@ util_gamma_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-geometric-tbl.R b/R/stats-geometric-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_geometric() %>%
-#'   util_geometric_stats_tbl()
+#'   util_geometric_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -74,7 +77,9 @@ util_geometric_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-hypergeometric-tbl.R b/R/stats-hypergeometric-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_hypergeometric() %>%
-#'   util_hypergeometric_stats_tbl()
+#'   util_hypergeometric_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -84,7 +87,9 @@ util_hypergeometric_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-logistic-tbl.R b/R/stats-logistic-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_logistic() %>%
-#'   util_logistic_stats_tbl()
+#'   util_logistic_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -72,7 +75,9 @@ util_logistic_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-lognormal-tbl.R b/R/stats-lognormal-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_lognormal() %>%
-#'   util_lognormal_stats_tbl()
+#'   util_lognormal_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -73,7 +76,9 @@ util_lognormal_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-negative-binomial-tbl.R b/R/stats-negative-binomial-tbl.R
@@ -15,8 +15,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_negative_binomial() %>%
-#'   util_negative_binomial_stats_tbl()
+#'   util_negative_binomial_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -73,7 +76,9 @@ util_negative_binomial_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-normal-tbl.R b/R/stats-normal-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_normal() %>%
-#'   util_normal_stats_tbl()
+#'   util_normal_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -71,7 +74,9 @@ util_normal_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-pareto-tbl.R b/R/stats-pareto-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_pareto() %>%
-#'   util_pareto_stats_tbl()
+#'   util_pareto_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -72,7 +75,9 @@ util_pareto_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-poisson-tbl.R b/R/stats-poisson-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' tidy_poisson() %>%
-#'   util_poisson_stats_tbl()
+#'   util_poisson_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -71,7 +74,9 @@ util_poisson_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return

diff --git a/R/stats-t-tbl.R b/R/stats-t-tbl.R
@@ -14,8 +14,11 @@
 #' @param .data The data being passed from a `tidy_` distribution function.
 #'
 #' @examples
-#' tidy_cauchy() %>%
-#'   util_cauchy_stats_tbl()
+#' library(dplyr)
+#'
+#' tidy_t() %>%
+#'   util_t_stats_tbl() %>%
+#'   glimpse()
 #'
 #' @return
 #' A tibble
@@ -71,7 +74,9 @@ util_t_stats_tbl <- function(.data){
         skewness = stat_skewness,
         kurtosis = stat_kurtosis,
         computed_std_skew = tidy_skewness_vec(data_tbl$y),
-        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y)
+        computed_std_kurt = tidy_kurtosis_vec(data_tbl$y),
+        ci_lo = ci_lo(data_tbl$y),
+        ci_hi = ci_hi(data_tbl$y)
     )
 
     # Return