diff --git a/.Rbuildignore b/.Rbuildignore index 8b0acebf7..cb27ed519 100644 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -34,3 +34,4 @@ pkgdown # others ^renv$ ^renv\.lock$ +^cran-comments\.md$ diff --git a/DESCRIPTION b/DESCRIPTION index 895891f2e..7a3dc512f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,20 +1,22 @@ Package: cardx Title: Extra Analysis Results Data Utilities -Version: 0.0.0.9042 +Version: 0.1.0 Authors@R: c( - person("Daniel", "Sjoberg", , "sjobergd@gene.com", role = c("aut", "cre")), + person("Daniel", "Sjoberg", , "danield.sjoberg@gmail.com", role = c("aut", "cre")), person("F. Hoffmann-La Roche AG", role = c("cph", "fnd")) ) -Description: Extra Analysis Results Data (ARD) functions. The package - supplements the ARD functions from the 'cards' package, exporting - functions to put statistical results in the ARD format. +Description: Create extra Analysis Results Data (ARD) summary objects. + The package supplements the simple ARD functions from the 'cards' + package, exporting functions to put statistical results in the ARD + format. These objects are used and re-used to construct summary + tables, visualizations, and written reports. License: Apache License 2.0 URL: https://github.com/insightsengineering/cardx BugReports: https://github.com/insightsengineering/cardx/issues Depends: R (>= 4.1) Imports: - cards (>= 0.0.0.9049), + cards (>= 0.1.0), cli (>= 3.6.1), dplyr (>= 1.1.2), glue (>= 1.6.2), @@ -26,8 +28,6 @@ Suggests: spelling, testthat (>= 3.2.0), withr -Remotes: - insightsengineering/cards Config/Needs/website: insightsengineering/nesttemplate Config/testthat/edition: 3 Config/testthat/parallel: true diff --git a/LICENSE b/LICENSE deleted file mode 100644 index 0a85e9d1d..000000000 --- a/LICENSE +++ /dev/null @@ -1,13 +0,0 @@ -Copyright 2024 F. Hoffmann-La Roche AG - -Licensed under the Apache License, Version 2.0 (the "License"); -you may not use this file except in compliance with the License. -You may obtain a copy of the License at - - https://www.apache.org/licenses/LICENSE-2.0 - -Unless required by applicable law or agreed to in writing, software -distributed under the License is distributed on an "AS IS" BASIS, -WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -See the License for the specific language governing permissions and -limitations under the License. diff --git a/NEWS.md b/NEWS.md index 80a2429f8..50bba4244 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,3 @@ -# cardx 0.0.0.9042 +# cardx 0.1.0 -### New Features -* New package! +* Initial release. diff --git a/R/ard_mcnemartest.R b/R/ard_mcnemartest.R index 2e3ffeace..876a830f6 100644 --- a/R/ard_mcnemartest.R +++ b/R/ard_mcnemartest.R @@ -76,6 +76,7 @@ ard_mcnemartest <- function(data, by, variable, ...) { #' ) #' #' @keywords internal +#' @noRd .format_mcnemartest_results <- function(by, variable, lst_tidy, ...) { # build ARD ------------------------------------------------------------------ ret <- @@ -83,7 +84,7 @@ ard_mcnemartest <- function(data, by, variable, ...) { lst_tidy = lst_tidy, tidy_result_names = c("statistic", "p.value", "method"), fun_args_to_record = c("correct"), - formals = formals(asNamespace("stats")[["mcnemar.test"]]), + # formals = formals(asNamespace("stats")[["mcnemar.test"]]), passed_args = dots_list(...), lst_ard_columns = list(group1 = by, variable = variable, context = "mcnemartest") ) diff --git a/R/ard_moodtest.R b/R/ard_moodtest.R index dbce77559..b88b135d3 100644 --- a/R/ard_moodtest.R +++ b/R/ard_moodtest.R @@ -70,13 +70,14 @@ ard_moodtest <- function(data, by, variable, ...) { #' broom::tidy() #' ) #' ) +#' @noRd .format_moodtest_results <- function(by, variable, lst_tidy, ...) { # build ARD ------------------------------------------------------------------ ret <- cards::tidy_as_ard( lst_tidy = lst_tidy, tidy_result_names = c("statistic", "p.value", "method", "alternative"), - formals = formals(asNamespace("stats")[["mood.test.default"]]), + # formals = formals(asNamespace("stats")[["mood.test.default"]]), passed_args = c(dots_list(...)), lst_ard_columns = list(group1 = by, variable = variable, context = "moodtest") ) diff --git a/R/ard_ttest.R b/R/ard_ttest.R index 6dfcadff1..86417a9b8 100644 --- a/R/ard_ttest.R +++ b/R/ard_ttest.R @@ -126,6 +126,7 @@ ard_paired_ttest <- function(data, by, variable, id, ...) { #' broom::tidy() #' ) #' ) +#' @noRd .format_ttest_results <- function(by, variable, lst_tidy, paired, ...) { # build ARD ------------------------------------------------------------------ ret <- @@ -137,7 +138,7 @@ ard_paired_ttest <- function(data, by, variable, id, ...) { "method", "alternative" ), fun_args_to_record = c("mu", "paired", "var.equal", "conf.level"), - formals = formals(asNamespace("stats")[["t.test.default"]]), + # formals = formals(asNamespace("stats")[["t.test.default"]]), passed_args = c(list(paired = paired), dots_list(...)), lst_ard_columns = list(group1 = by, variable = variable, context = "ttest") ) @@ -170,6 +171,7 @@ ard_paired_ttest <- function(data, by, variable, id, ...) { #' dplyr::mutate(.by = ARM, USUBJID = dplyr::row_number()) |> #' dplyr::arrange(USUBJID, ARM) |> #' cardx:::.paired_data_pivot_wider(by = "ARM", variable = "AGE", id = "USUBJID") +#' @noRd .paired_data_pivot_wider <- function(data, by, variable, id, env = rlang::caller_env()) { # check the number of levels before pivoting data to wider format if (dplyr::n_distinct(data[[by]], na.rm = TRUE) != 2L) { diff --git a/R/ard_wilcoxtest.R b/R/ard_wilcoxtest.R index f02f614db..d8343aff2 100644 --- a/R/ard_wilcoxtest.R +++ b/R/ard_wilcoxtest.R @@ -134,6 +134,7 @@ ard_paired_wilcoxtest <- function(data, by, variable, id, ...) { #' ) #' #' @keywords internal +#' @noRd .format_wilcoxtest_results <- function(by, variable, lst_tidy, paired, ...) { # build ARD ------------------------------------------------------------------ ret <- @@ -144,7 +145,7 @@ ard_paired_wilcoxtest <- function(data, by, variable, id, ...) { "mu", "paired", "exact", "correct", "conf.int", "conf.level", "tol.root", "digits.rank" ), - formals = formals(asNamespace("stats")[["wilcox.test.default"]]), + # formals = formals(asNamespace("stats")[["wilcox.test.default"]]), passed_args = c(list(paired = paired), dots_list(...)), lst_ard_columns = list(group1 = by, variable = variable, context = "ttest") ) @@ -159,41 +160,6 @@ ard_paired_wilcoxtest <- function(data, by, variable, id, ...) { cards::tidy_ard_column_order() } - -#' Convert long paired data to wide -#' -#' -#' @param data (`data.frame`)\cr a data frame that is one line per subject per group -#' @param by (`string`)\cr by column name -#' @param variable (`string`)\cr variable column name -#' @param id (`string`)\cr subject id column name -#' @param env (`environment`) used for error messaging. Default is `rlang::caller_env()` -#' -#' @return a wide data frame -#' @keywords internal -#' @examples -#' cards::ADSL[c("ARM", "AGE")] |> -#' dplyr::filter(ARM %in% c("Placebo", "Xanomeline High Dose")) |> -#' dplyr::mutate(.by = ARM, USUBJID = dplyr::row_number()) |> -#' dplyr::arrange(USUBJID, ARM) |> -#' cardx:::.paired_data_pivot_wider(by = "ARM", variable = "AGE", id = "USUBJID") -.paired_data_pivot_wider <- function(data, by, variable, id, env = rlang::caller_env()) { - # check the number of levels before pivoting data to wider format - if (dplyr::n_distinct(data[[by]], na.rm = TRUE) != 2L) { - cli::cli_abort("The {.arg by} argument must have two and only two levels.", call = env) - } - - data |> - # arrange data so the first group always appears first - dplyr::arrange(.data[[by]]) |> - tidyr::pivot_wider( - id_cols = all_of(id), - names_from = all_of(by), - values_from = all_of(variable) - ) |> - stats::setNames(c(id, "by1", "by2")) -} - .df_wilcoxtest_stat_labels <- function() { dplyr::tribble( ~stat_name, ~stat_label, diff --git a/R/proportion_ci.R b/R/proportion_ci.R index 059e3d071..8e855ec30 100644 --- a/R/proportion_ci.R +++ b/R/proportion_ci.R @@ -344,6 +344,7 @@ proportion_ci_strat_wilson <- function(x, #' weights <- rep(1 / length(ns), length(ns)) #' #' cardx:::.strata_normal_quantile(vars, weights, 0.95) +#' @noRd .strata_normal_quantile <- function(vars, weights, conf.level) { summands <- weights^2 * vars # Stratified quantile @@ -377,6 +378,7 @@ proportion_ci_strat_wilson <- function(x, #' ns <- c(22, 18, 17, 17, 14, 12) #' #' cardx:::.update_weights_strat_wilson(vs, sq, ws, ns, 100, 0.95, 0.001) +#' @noRd .update_weights_strat_wilson <- function(vars, strata_qnorm, initial_weights, diff --git a/README.md b/README.md index da63291d0..86247b9d0 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,4 @@ -# cardx cardx website +# cardx cardx website [![R-CMD-check](https://github.com/insightsengineering/cardx/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/insightsengineering/cardx/actions/workflows/R-CMD-check.yaml) @@ -11,9 +11,16 @@ This is the source repository of the `cardx` R package. ## Installation -The latest development version of `{cardx}` can directly be installed from GitHub by running the following: +Install cards from CRAN with: -```r -if (!require("pak")) install.packages("pak") -pak::pak("insightsengineering/cardx") +``` r +install.packages("cardx") +``` + +You can install the development version of cards from +[GitHub](https://github.com/) with: + +``` r +# install.packages("devtools") +devtools::install_github("insightsengineering/cardx") ``` diff --git a/cran-comments.md b/cran-comments.md new file mode 100644 index 000000000..e568741d3 --- /dev/null +++ b/cran-comments.md @@ -0,0 +1,17 @@ +## Test environments +* Ubuntu 18.04 LTS (on github actions), devel, release, oldrel-1, oldrel-2, oldrel-3, oldrel-4 +* Windows Server 2019 (on github actions), release +* macOS (on github actions), release +* win-builder devel + +## R CMD check results + +0 errors | 0 warnings | 1 note + + Maintainer: ‘Daniel D. Sjoberg ’ + + New submission + +## Additional Comments + +* Thank you for your time! diff --git a/man/cardx-package.Rd b/man/cardx-package.Rd index 896af5fb9..ca949e53c 100644 --- a/man/cardx-package.Rd +++ b/man/cardx-package.Rd @@ -8,7 +8,7 @@ \description{ \if{html}{\figure{logo.png}{options: style='float: right' alt='logo' width='120'}} -Extra Analysis Results Data (ARD) functions. The package supplements the ARD functions from the 'cards' package, exporting functions to put statistical results in the ARD format. +Create extra Analysis Results Data (ARD) summary objects. The package supplements the simple ARD functions from the 'cards' package, exporting functions to put statistical results in the ARD format. These objects are used and re-used to construct summary tables, visualizations, and written reports. } \seealso{ Useful links: @@ -19,7 +19,7 @@ Useful links: } \author{ -\strong{Maintainer}: Daniel Sjoberg \email{sjobergd@gene.com} +\strong{Maintainer}: Daniel Sjoberg \email{danield.sjoberg@gmail.com} Other contributors: \itemize{ diff --git a/man/dot-format_mcnemartest_results.Rd b/man/dot-format_mcnemartest_results.Rd deleted file mode 100644 index a809a791c..000000000 --- a/man/dot-format_mcnemartest_results.Rd +++ /dev/null @@ -1,38 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ard_mcnemartest.R -\name{.format_mcnemartest_results} -\alias{.format_mcnemartest_results} -\title{Convert McNemar's test to ARD} -\usage{ -.format_mcnemartest_results(by, variable, lst_tidy, ...) -} -\arguments{ -\item{by}{(\code{string})\cr by column name} - -\item{variable}{(\code{string})\cr variable column name} - -\item{lst_tidy}{(named \code{list})\cr -list of tidied results constructed with \code{\link[cards:eval_capture_conditions]{eval_capture_conditions()}}, -e.g. \code{eval_capture_conditions(t.test(mtcars$mpg ~ mtcars$am) |> broom::tidy())}.} - -\item{...}{passed to \code{stats::mcnemar.test(...)}} -} -\value{ -ARD data frame -} -\description{ -Convert McNemar's test to ARD -} -\examples{ -cardx:::.format_mcnemartest_results( - by = "ARM", - variable = "AGE", - lst_tidy = - cards::eval_capture_conditions( - stats::mcnemar.test(cards::ADSL[["SEX"]], cards::ADSL[["EFFFL"]]) |> - broom::tidy() - ) -) - -} -\keyword{internal} diff --git a/man/dot-format_moodtest_results.Rd b/man/dot-format_moodtest_results.Rd deleted file mode 100644 index 95cae344e..000000000 --- a/man/dot-format_moodtest_results.Rd +++ /dev/null @@ -1,37 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ard_moodtest.R -\name{.format_moodtest_results} -\alias{.format_moodtest_results} -\title{Convert mood test results to ARD} -\usage{ -.format_moodtest_results(by, variable, lst_tidy, ...) -} -\arguments{ -\item{by}{(\code{string})\cr by column name} - -\item{variable}{(\code{string})\cr variable column name} - -\item{lst_tidy}{(named \code{list})\cr -list of tidied results constructed with \code{\link[cards:eval_capture_conditions]{eval_capture_conditions()}}, -e.g. \code{eval_capture_conditions(t.test(mtcars$mpg ~ mtcars$am) |> broom::tidy())}.} - -\item{...}{passed to \code{mood.test(...)}} -} -\value{ -ARD data frame -} -\description{ -Convert mood test results to ARD -} -\examples{ -cardx:::.format_moodtest_results( - by = "SEX", - variable = "AGE", - lst_tidy = - cards::eval_capture_conditions( - stats::mood.test(ADSL[["AGE"]] ~ ADSL[["SEX"]]) |> - broom::tidy() - ) -) -} -\keyword{internal} diff --git a/man/dot-format_ttest_results.Rd b/man/dot-format_ttest_results.Rd deleted file mode 100644 index 8fa81e3c0..000000000 --- a/man/dot-format_ttest_results.Rd +++ /dev/null @@ -1,41 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ard_ttest.R -\name{.format_ttest_results} -\alias{.format_ttest_results} -\title{Convert t-test to ARD} -\usage{ -.format_ttest_results(by, variable, lst_tidy, paired, ...) -} -\arguments{ -\item{by}{(\code{string})\cr by column name} - -\item{variable}{(\code{string})\cr variable column name} - -\item{lst_tidy}{(named \code{list})\cr -list of tidied results constructed with \code{\link[cards:eval_capture_conditions]{eval_capture_conditions()}}, -e.g. \code{eval_capture_conditions(t.test(mtcars$mpg ~ mtcars$am) |> broom::tidy())}.} - -\item{paired}{a logical indicating whether you want a paired - t-test.} - -\item{...}{passed to \code{t.test(...)}} -} -\value{ -ARD data frame -} -\description{ -Convert t-test to ARD -} -\examples{ -cardx:::.format_ttest_results( - by = "ARM", - variable = "AGE", - paired = FALSE, - lst_tidy = - cards::eval_capture_conditions( - stats::t.test(ADSL[["AGE"]] ~ ADSL[["ARM"]], paired = FALSE) |> - broom::tidy() - ) -) -} -\keyword{internal} diff --git a/man/dot-format_wilcoxtest_results.Rd b/man/dot-format_wilcoxtest_results.Rd deleted file mode 100644 index 10f70950e..000000000 --- a/man/dot-format_wilcoxtest_results.Rd +++ /dev/null @@ -1,46 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ard_wilcoxtest.R -\name{.format_wilcoxtest_results} -\alias{.format_wilcoxtest_results} -\title{Convert Wilcoxon test to ARD} -\usage{ -.format_wilcoxtest_results(by, variable, lst_tidy, paired, ...) -} -\arguments{ -\item{by}{(\code{string})\cr by column name} - -\item{variable}{(\code{string})\cr variable column name} - -\item{lst_tidy}{(named \code{list})\cr -list of tidied results constructed with \code{\link[cards:eval_capture_conditions]{eval_capture_conditions()}}, -e.g. \code{eval_capture_conditions(t.test(mtcars$mpg ~ mtcars$am) |> broom::tidy())}.} - -\item{paired}{a logical indicating whether you want a paired test.} - -\item{...}{passed to \code{stats::wilcox.test(...)}} -} -\value{ -ARD data frame -} -\description{ -Convert Wilcoxon test to ARD -} -\examples{ -# Pre-processing ADSL to have grouping factor (ARM here) with 2 levels -ADSL <- cards::ADSL |> - dplyr::filter(ARM \%in\% c("Placebo", "Xanomeline High Dose")) |> - ard_wilcoxtest(by = "ARM", variable = "AGE") - -cardx:::.format_wilcoxtest_results( - by = "ARM", - variable = "AGE", - paired = FALSE, - lst_tidy = - cards::eval_capture_conditions( - stats::wilcox.test(ADSL[["AGE"]] ~ ADSL[["ARM"]], paired = FALSE) |> - broom::tidy() - ) -) - -} -\keyword{internal} diff --git a/man/dot-paired_data_pivot_wider.Rd b/man/dot-paired_data_pivot_wider.Rd deleted file mode 100644 index a73b469e3..000000000 --- a/man/dot-paired_data_pivot_wider.Rd +++ /dev/null @@ -1,44 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/ard_ttest.R, R/ard_wilcoxtest.R -\name{.paired_data_pivot_wider} -\alias{.paired_data_pivot_wider} -\title{Convert long paired data to wide} -\usage{ -.paired_data_pivot_wider(data, by, variable, id, env = rlang::caller_env()) - -.paired_data_pivot_wider(data, by, variable, id, env = rlang::caller_env()) -} -\arguments{ -\item{data}{(\code{data.frame})\cr a data frame that is one line per subject per group} - -\item{by}{(\code{string})\cr by column name} - -\item{variable}{(\code{string})\cr variable column name} - -\item{id}{(\code{string})\cr subject id column name} - -\item{env}{(\code{environment}) used for error messaging. Default is \code{rlang::caller_env()}} -} -\value{ -a wide data frame - -a wide data frame -} -\description{ -Convert long paired data to wide - -Convert long paired data to wide -} -\examples{ -cards::ADSL[c("ARM", "AGE")] |> - dplyr::filter(ARM \%in\% c("Placebo", "Xanomeline High Dose")) |> - dplyr::mutate(.by = ARM, USUBJID = dplyr::row_number()) |> - dplyr::arrange(USUBJID, ARM) |> - cardx:::.paired_data_pivot_wider(by = "ARM", variable = "AGE", id = "USUBJID") -cards::ADSL[c("ARM", "AGE")] |> - dplyr::filter(ARM \%in\% c("Placebo", "Xanomeline High Dose")) |> - dplyr::mutate(.by = ARM, USUBJID = dplyr::row_number()) |> - dplyr::arrange(USUBJID, ARM) |> - cardx:::.paired_data_pivot_wider(by = "ARM", variable = "AGE", id = "USUBJID") -} -\keyword{internal} diff --git a/man/dot-strata_normal_quantile.Rd b/man/dot-strata_normal_quantile.Rd deleted file mode 100644 index 7b9b145cf..000000000 --- a/man/dot-strata_normal_quantile.Rd +++ /dev/null @@ -1,42 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/proportion_ci.R -\name{.strata_normal_quantile} -\alias{.strata_normal_quantile} -\title{Helper Function for the Estimation of Stratified Quantiles} -\usage{ -.strata_normal_quantile(vars, weights, conf.level) -} -\arguments{ -\item{weights}{(\code{numeric} or \code{NULL})\cr weights for each level of the strata. If \code{NULL}, they are -estimated using the iterative algorithm that -minimizes the weighted squared length of the confidence interval.} - -\item{conf.level}{(\code{numeric})\cr -a scalar in \verb{(0, 1)} indicating the confidence level. -Default is \code{0.95}} -} -\value{ -Stratified quantile. -} -\description{ -This function wraps the estimation of stratified percentiles when we assume -the approximation for large numbers. This is necessary only in the case -proportions for each strata are unequal. -} -\examples{ -strata_data <- table(data.frame( - "f1" = sample(c(TRUE, FALSE), 100, TRUE), - "f2" = sample(c("x", "y", "z"), 100, TRUE), - stringsAsFactors = TRUE -)) -ns <- colSums(strata_data) -ests <- strata_data["TRUE", ] / ns -vars <- ests * (1 - ests) / ns -weights <- rep(1 / length(ns), length(ns)) - -cardx:::.strata_normal_quantile(vars, weights, 0.95) -} -\seealso{ -\code{\link[=proportion_ci_strat_wilson]{proportion_ci_strat_wilson()}} -} -\keyword{internal} diff --git a/man/dot-update_weights_strat_wilson.Rd b/man/dot-update_weights_strat_wilson.Rd deleted file mode 100644 index 9b2893de3..000000000 --- a/man/dot-update_weights_strat_wilson.Rd +++ /dev/null @@ -1,54 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/proportion_ci.R -\name{.update_weights_strat_wilson} -\alias{.update_weights_strat_wilson} -\title{Helper Function for the Estimation of Weights for \code{proportion_ci_strat_wilson()}} -\usage{ -.update_weights_strat_wilson( - vars, - strata_qnorm, - initial_weights, - n_per_strata, - max.iterations = 50, - conf.level = 0.95, - tol = 0.001 -) -} -\arguments{ -\item{vars}{(\code{numeric})\cr normalized proportions for each strata.} - -\item{strata_qnorm}{(\code{numeric})\cr initial estimation with identical weights of the quantiles.} - -\item{initial_weights}{(\code{numeric})\cr initial weights used to calculate \code{strata_qnorm}. This can -be optimized in the future if we need to estimate better initial weights.} - -\item{n_per_strata}{(\code{numeric})\cr number of elements in each strata.} - -\item{max.iterations}{(\code{count})\cr maximum number of iterations to be tried. Convergence is always checked.} - -\item{conf.level}{(\code{numeric})\cr -a scalar in \verb{(0, 1)} indicating the confidence level. -Default is \code{0.95}} - -\item{tol}{(\code{number})\cr tolerance threshold for convergence.} -} -\value{ -A \code{list} of 3 elements: \code{n_it}, \code{weights}, and \code{diff_v}. -} -\description{ -This function wraps the iteration procedure that allows you to estimate -the weights for each proportional strata. This assumes to minimize the -weighted squared length of the confidence interval. -} -\examples{ -vs <- c(0.011, 0.013, 0.012, 0.014, 0.017, 0.018) -sq <- 0.674 -ws <- rep(1 / length(vs), length(vs)) -ns <- c(22, 18, 17, 17, 14, 12) - -cardx:::.update_weights_strat_wilson(vs, sq, ws, ns, 100, 0.95, 0.001) -} -\seealso{ -For references and details see \code{\link[=proportion_ci_strat_wilson]{proportion_ci_strat_wilson()}}. -} -\keyword{internal} diff --git a/tests/testthat/_snaps/ard_ttest.md b/tests/testthat/_snaps/ard_ttest.md index 9fc30da10..3d4bd9ae5 100644 --- a/tests/testthat/_snaps/ard_ttest.md +++ b/tests/testthat/_snaps/ard_ttest.md @@ -14,10 +14,10 @@ 8 ARM AGE ttest conf.high CI Upper Bound NULL NULL NULL 9 ARM AGE ttest method method NULL NULL NULL 10 ARM AGE ttest alternative alternative NULL NULL NULL - 11 ARM AGE ttest mu H0 Mean 0 1 NULL + 11 ARM AGE ttest mu H0 Mean NULL NULL NULL 12 ARM AGE ttest paired Paired t-test FALSE NULL NULL 13 ARM AGE ttest var.equal Equal Variances TRUE NULL NULL - 14 ARM AGE ttest conf.level CI Confidence Level 0.95 1 NULL + 14 ARM AGE ttest conf.level CI Confidence Level NULL NULL NULL error 1 grouping factor must have exactly 2 levels 2 grouping factor must have exactly 2 levels @@ -51,10 +51,10 @@ 8 ARM AGE ttest conf.high CI Upper Bound NULL NULL NULL 9 ARM AGE ttest method method NULL NULL NULL 10 ARM AGE ttest alternative alternative NULL NULL NULL - 11 ARM AGE ttest mu H0 Mean 0 1 NULL + 11 ARM AGE ttest mu H0 Mean NULL NULL NULL 12 ARM AGE ttest paired Paired t-test TRUE NULL NULL 13 ARM AGE ttest var.equal Equal Variances TRUE NULL NULL - 14 ARM AGE ttest conf.level CI Confidence Level 0.95 1 NULL + 14 ARM AGE ttest conf.level CI Confidence Level NULL NULL NULL error 1 The `by` argument must have two and only two levels. 2 The `by` argument must have two and only two levels.