From 4e07ef156b00a55bf080823c6254e3942d7bb197 Mon Sep 17 00:00:00 2001 From: Daniel Sjoberg Date: Fri, 2 Feb 2024 12:58:00 -0800 Subject: [PATCH 1/4] update after Nolan's review --- DESCRIPTION | 2 +- R/ard_ttest.R | 4 ++-- man/ard_ttest.Rd | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index e885710e4..e14f672f6 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: cardx Title: Extra Analysis Results Data Utilities -Version: 0.0.0.9016 +Version: 0.0.0.9021 Authors@R: c( person("Daniel", "Sjoberg", , "sjobergd@gene.com", role = c("aut", "cre")), person("F. Hoffmann-La Roche AG", role = c("cph", "fnd")) diff --git a/R/ard_ttest.R b/R/ard_ttest.R index 14b1624a1..d739eeb56 100644 --- a/R/ard_ttest.R +++ b/R/ard_ttest.R @@ -29,7 +29,7 @@ #' @examples #' cards::ADSL |> #' dplyr::filter(ARM %in% c("Placebo", "Xanomeline High Dose")) |> -#' ard_ttest(by = "ARM", variable = "AGE") +#' ard_ttest(by = ARM, variable = AGE) #' #' # constructing a paired data set, #' # where patients receive both treatments @@ -96,7 +96,7 @@ ard_paired_ttest <- function(data, by, variable, id, ...) { cards::eval_capture_conditions({ # adding this reshape inside the eval, so if there is an error it's captured in the ARD object data_wide <- .paired_data_pivot_wider(data, by = by, variable = variable, id = id) - # perform paried t-test + # perform paired t-test stats::t.test(x = data_wide[["by1"]], y = data_wide[["by2"]], paired = TRUE, ...) |> broom::tidy() }), diff --git a/man/ard_ttest.Rd b/man/ard_ttest.Rd index 7568cda0c..2a8cfdf77 100644 --- a/man/ard_ttest.Rd +++ b/man/ard_ttest.Rd @@ -43,7 +43,7 @@ The data are then passed as \examples{ cards::ADSL |> dplyr::filter(ARM \%in\% c("Placebo", "Xanomeline High Dose")) |> - ard_ttest(by = "ARM", variable = "AGE") + ard_ttest(by = ARM, variable = AGE) # constructing a paired data set, # where patients receive both treatments From 866002a83c181bfb9106fab3543daede09f091ab Mon Sep 17 00:00:00 2001 From: ddsjoberg Date: Fri, 2 Feb 2024 20:58:47 +0000 Subject: [PATCH 2/4] [skip actions] Bump version to 0.0.0.9022 --- DESCRIPTION | 2 +- NEWS.md | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index e14f672f6..3193da819 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: cardx Title: Extra Analysis Results Data Utilities -Version: 0.0.0.9021 +Version: 0.0.0.9022 Authors@R: c( person("Daniel", "Sjoberg", , "sjobergd@gene.com", role = c("aut", "cre")), person("F. Hoffmann-La Roche AG", role = c("cph", "fnd")) diff --git a/NEWS.md b/NEWS.md index 18e10108a..cebd32464 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# cardx 0.0.0.9016 +# cardx 0.0.0.9022 ### New Features * New package! From 1b904c5137aea8ced9b00c40261cd29d196595a3 Mon Sep 17 00:00:00 2001 From: Daniel Sjoberg Date: Fri, 2 Feb 2024 13:45:27 -0800 Subject: [PATCH 3/4] increment version number --- DESCRIPTION | 2 +- NEWS.md | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 3193da819..fa3530ce2 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: cardx Title: Extra Analysis Results Data Utilities -Version: 0.0.0.9022 +Version: 0.0.0.9023 Authors@R: c( person("Daniel", "Sjoberg", , "sjobergd@gene.com", role = c("aut", "cre")), person("F. Hoffmann-La Roche AG", role = c("cph", "fnd")) diff --git a/NEWS.md b/NEWS.md index cebd32464..6b55fd226 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# cardx 0.0.0.9022 +# cardx 0.0.0.9023 ### New Features * New package! From d5458db56a033d468d8070ff9b4a8a30db095256 Mon Sep 17 00:00:00 2001 From: ddsjoberg Date: Fri, 2 Feb 2024 21:46:18 +0000 Subject: [PATCH 4/4] [skip actions] Bump version to 0.0.0.9024 --- DESCRIPTION | 2 +- NEWS.md | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index fa3530ce2..7c9d9d4e7 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: cardx Title: Extra Analysis Results Data Utilities -Version: 0.0.0.9023 +Version: 0.0.0.9024 Authors@R: c( person("Daniel", "Sjoberg", , "sjobergd@gene.com", role = c("aut", "cre")), person("F. Hoffmann-La Roche AG", role = c("cph", "fnd")) diff --git a/NEWS.md b/NEWS.md index 6b55fd226..d08ad9339 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# cardx 0.0.0.9023 +# cardx 0.0.0.9024 ### New Features * New package!