From 2a0a7fcbd3ca37ad29e8450b9d09e5f68a96654e Mon Sep 17 00:00:00 2001
From: gowerc <craig.gower-page@roche.com>
Date: Thu, 6 Jun 2024 11:15:27 +0100
Subject: [PATCH] updated prior

---
 R/SurvivalExponential.R          | 2 +-
 R/SurvivalLoglogistic.R          | 2 +-
 R/SurvivalWeibullPH.R            | 2 +-
 man/SurvivalExponential-class.Rd | 2 +-
 man/SurvivalLogLogistic-class.Rd | 2 +-
 man/SurvivalWeibullPH-class.Rd   | 2 +-
 vignettes/extending-jmpost.Rmd   | 2 +-
 7 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/R/SurvivalExponential.R b/R/SurvivalExponential.R
index 85bb307e..05fe7e88 100755
--- 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
index 816f1d47..61a851bd 100644
--- 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
index 0ce732f4..2322abda 100755
--- 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
index b2c8fb2a..07f09b3c 100644
--- a/man/SurvivalExponential-class.Rd
+++ b/man/SurvivalExponential-class.Rd
@@ -7,7 +7,7 @@
 \alias{SurvivalExponential}
 \title{\code{SurvivalExponential}}
 \usage{
-SurvivalExponential(lambda = prior_gamma(2, 5), beta = prior_normal(0, 5))
+SurvivalExponential(lambda = prior_gamma(2, 5), beta = prior_normal(0, 2))
 }
 \arguments{
 \item{lambda}{(\code{Prior})\cr for the exponential rate \code{lambda}.}
diff --git a/man/SurvivalLogLogistic-class.Rd b/man/SurvivalLogLogistic-class.Rd
index bc36373d..3298a6f9 100644
--- a/man/SurvivalLogLogistic-class.Rd
+++ b/man/SurvivalLogLogistic-class.Rd
@@ -10,7 +10,7 @@
 SurvivalLogLogistic(
   a = prior_lognormal(log(0.1), 5),
   b = prior_gamma(2, 5),
-  beta = prior_normal(0, 5)
+  beta = prior_normal(0, 2)
 )
 }
 \arguments{
diff --git a/man/SurvivalWeibullPH-class.Rd b/man/SurvivalWeibullPH-class.Rd
index 6f4158a9..f6556d14 100644
--- a/man/SurvivalWeibullPH-class.Rd
+++ b/man/SurvivalWeibullPH-class.Rd
@@ -10,7 +10,7 @@
 SurvivalWeibullPH(
   lambda = prior_gamma(2, 0.5),
   gamma = prior_gamma(2, 0.5),
-  beta = prior_normal(0, 5)
+  beta = prior_normal(0, 2)
 )
 }
 \arguments{
diff --git a/vignettes/extending-jmpost.Rmd b/vignettes/extending-jmpost.Rmd
index d55ab027..c56bf56c 100644
--- 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 {