Merge pull request Merck#257 from Merck/254-decimals-display-of-param…

…eters 254 decimals display of parameters
jdblischak · Jun 12, 2024 · 23449e0 · 23449e0
2 parents fedf01d + 93ec397
commit 23449e0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: simtrial
 Type: Package
 Title: Clinical Trial Simulation
-Version: 0.4.1.5
+Version: 0.4.1.6
 Authors@R: c(
     person("Keaven", "Anderson", email = "[email protected]", role = c("aut")),
     person("Yujie", "Zhao", email = "[email protected]", role =  c("ctb","cre")),

diff --git a/R/wlr.R b/R/wlr.R
@@ -108,7 +108,7 @@ wlr <- function(data, weight, return_variance = FALSE) {
   } else if (inherits(weight, "early_period")) {
     x <- x |> early_zero_weight(early_period = weight$early_period, fail_rate = weight$fail_rate)
 
-    ans$parameter <- paste0("Xu 2017 with first ", weight$early_period, " months of 0 weights")
+    ans$parameter <- paste0("Xu 2017 with first ", round(weight$early_period, 4), " months of 0 weights")
     ans$estimate <- sum(x$o_minus_e * x$weight)
     ans$se <- sqrt(sum(x$var_o_minus_e * x$weight^2))
     ans$z <- ans$estimate / ans$se