Changed the trial number for the vignette example

Boehringer-Ingelheim · Dec 18, 2023 · fff41e1 · fff41e1
1 parent cb4cf39
commit fff41e1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/vignettes/analysis_normal.Rmd b/vignettes/analysis_normal.Rmd
@@ -41,7 +41,7 @@ histcontrol <- filter(dataset,
                       dose       == 0,
                       primtime   == 8,
                       indication == "MAJOR DEPRESSIVE DISORDER",
-                      protid     != 6)
+                      protid     != 5)
 
 ##Create MAP Prior
 hist_data <- data.frame(
@@ -142,7 +142,7 @@ mods <- DoseFinding::Mods(
 new_trial  <- filter(dataset,
                      primtime   == 8,
                      indication == "MAJOR DEPRESSIVE DISORDER",
-                     protid     == 6)
+                     protid     == 5)
 
 n_patients <- c(150, 142, 147, 149)