fix(minimisation): correct unequal allocation ratio handling; bump version to 1.0.2 and update references (NEWS, apiVersion, tests, vignette)

Author: kamilsi

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: unbiased
 Title: Unbiased: Production-Grade Randomization API
-Version: 1.0.1
+Version: 1.0.2
 Authors@R: c(
     person("Kamil", "Sijko", , "kamil.sijko@ttsi.com.pl",
            role = c("aut", "cre"), comment = c(ORCID = "0000-0002-2203-1065")),

NEWS.md

@@ -1,3 +1,9 @@
+# unbiased 1.0.2
+
+## Bug Fixes
+
+- Fixed incorrect ratio allocation in minimisation randomization when unequal allocation ratios were provided. This was caused by a logic bug; updating a single line in `randomize-minimisation-pocock.R` restores expected allocation behavior.
+
 # unbiased 1.0.1
 
 ## Bug Fixes

R/randomize-minimisation-pocock.R

@@ -253,7 +253,7 @@ randomize_minimisation_pocock <-
         # compute scenario where each arm (x) gets new subject
         dplyr::mutate(dplyr::across(
           dplyr::where(is.numeric),
-          ~ dplyr::if_else(arm == x, .x + 1, .x) *
+          ~ dplyr::if_else(arm == x, .x + 1, .x) /
             ratio[arm]
         )) |>
         # compute dispersion across each covariate

inst/plumber/unbiased_api/plumber.R

@@ -10,7 +10,7 @@
 #*   url = "https://ttscience.github.io/unbiased/")
 #* @apiLicense list(name = "MIT",
 #*   url = "https://github.com/ttscience/unbiased/LICENSE.md")
-#* @apiVersion 1.0.1
+#* @apiVersion 1.0.2
 #* @apiTag initialize Endpoints that initialize study with chosen
 #*   randomization method and parameters.
 #* @apiTag randomize Endpoints that randomize individual patients after the

tests/testthat/test-error-handling.R

@@ -4,7 +4,7 @@ testthat::test_that("uses correct environment variables when setting up sentry",
       SENTRY_DSN = "https://sentry.io/123",
       GITHUB_SHA = "abc",
       SENTRY_ENVIRONMENT = "production",
-      SENTRY_RELEASE = "1.0.1"
+      SENTRY_RELEASE = "1.0.2"
     )
   )
 
@@ -18,7 +18,7 @@ testthat::test_that("uses correct environment variables when setting up sentry",
       testthat::expect_equal(app_name, "unbiased")
       testthat::expect_equal(app_version, "abc")
       testthat::expect_equal(environment, "production")
-      testthat::expect_equal(release, "1.0.1")
+      testthat::expect_equal(release, "1.0.2")
     },
     .package = "sentryR",
   )

vignettes/articles/references.bib

@@ -217,6 +217,6 @@ @Manual{unbiased
     title = {unbiased: Diverse Randomization Algorithms for Clinical Trials},
     author = {Kamil Sijko and Kinga Sałata and Aleksandra Duda and Łukasz Wałejko},
     year = {2024},
-    note = {R package version 1.0.1},
+  note = {R package version 1.0.2},
     url = {https://ttscience.github.io/unbiased/},
   }