updated prior

Genentech · Jun 6, 2024 · 2a0a7fc · 2a0a7fc
1 parent b4d749a
commit 2a0a7fc
Show file tree

Hide file tree

Showing 7 changed files with 7 additions and 7 deletions.
diff --git a/R/SurvivalExponential.R b/R/SurvivalExponential.R
@@ -24,7 +24,7 @@ NULL
 #' @export
 SurvivalExponential <- function(
     lambda = prior_gamma(2, 5),
-    beta = prior_normal(0, 5)
+    beta = prior_normal(0, 2)
 ) {
     .SurvivalExponential(
         SurvivalModel(

diff --git a/R/SurvivalLoglogistic.R b/R/SurvivalLoglogistic.R
@@ -26,7 +26,7 @@ NULL
 SurvivalLogLogistic <- function(
     a = prior_lognormal(log(0.1), 5),
     b = prior_gamma(2, 5),
-    beta = prior_normal(0, 5)
+    beta = prior_normal(0, 2)
 ) {
     .SurvivalLogLogistic(
         SurvivalModel(

diff --git a/R/SurvivalWeibullPH.R b/R/SurvivalWeibullPH.R
@@ -26,7 +26,7 @@ NULL
 SurvivalWeibullPH <- function(
     lambda = prior_gamma(2, 0.5),
     gamma = prior_gamma(2, 0.5),
-    beta = prior_normal(0, 5)
+    beta = prior_normal(0, 2)
 ) {
     .SurvivalWeibullPH(
         SurvivalModel(

diff --git a/man/SurvivalExponential-class.Rd b/man/SurvivalExponential-class.Rd
diff --git a/man/SurvivalLogLogistic-class.Rd b/man/SurvivalLogLogistic-class.Rd
diff --git a/man/SurvivalWeibullPH-class.Rd b/man/SurvivalWeibullPH-class.Rd
diff --git a/vignettes/extending-jmpost.Rmd b/vignettes/extending-jmpost.Rmd
@@ -72,7 +72,7 @@ For example the following is roughly equivalent to how the Weibull distribution
 SurvivalWeibullPH <- function(
     lambda = prior_gamma(2, 0.5),
     gamma = prior_gamma(2, 0.5),
-    beta = prior_normal(0, 5)
+    beta = prior_normal(0, 2)
 ) {
     stan <- StanModule("
         functions {