fixed method typo

StatisticsHealthEconomics · Aug 27, 2024 · 8785991 · 8785991
1 parent 83033dd
commit 8785991
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 300 deletions.
diff --git a/R/prep_S_data.R b/R/prep_S_data.R
@@ -25,7 +25,6 @@ prep_S_data <- function(stan_extract,
   for (i in tx_idx) {
 
     # extract survival data
-
     S_0_extract <- stan_extract[[S_0]]
     S_bg_extract <- stan_extract$S_bg
 

diff --git a/R/prep_S_joint_data.R b/R/prep_S_joint_data.R
@@ -1,7 +1,7 @@
 
 #
 prep_S_joint_data <- function(bmcm_out, ...) {
-  UseMethod("plot_S_joint")
+  UseMethod("prep_S_joint_data")
 }
 
 #' Prepare data for survival plot
@@ -72,7 +72,7 @@ prep_S_joint_data.default <- function(bmcm_out) {
 
   S_stats <- list()
 
-  matches <- grep(pattern = "^cf_\\d+\\[1\\]", names(bmcm_out))
+  matches <- grep(pattern = "^cf_\\d+", names(bmcm_out))
   n_groups <- length(matches)
   event_type <- 1:n_groups
 

diff --git a/inst/stan/precompiled_stan_model.RDS b/inst/stan/precompiled_stan_model.RDS
diff --git a/inst/stan/temp.stan b/inst/stan/temp.stan