Merge branch 'main' of https://github.com/StatisticsHealthEconomics/blendR

Author: n8thangreen

DESCRIPTION

@@ -7,7 +7,16 @@ Authors@R: c(
     person("Zhaojing", "Che", , "blendr-pkg@proton.me", role = c("aut", "cph", "cre"),
            comment = c(ORCID = "0000-0003-2245-1606", ROR = "052gg0110"))
   )
-Description: Create blended survival curves, see 'Che et al.' (2022) <doi:10.1177/0272989X221134545>.
+Description: Create a blended curve from two survival curves, which is particularly useful
+          for survival extrapolation in health technology assessment. The main idea is to
+          mix a flexible model that fits the observed data well with a parametric model that
+          encodes assumptions about long-term survival. The two curves are blended into a
+          single survival curve that is identical to the first model over the range of 
+          observed times and gradually approaches the parametric model over the extrapolation
+          period based on a given weight function. This approach allows for the inclusion of
+          external information, such as data from registries or expert opinion, to guide
+          long-term extrapolations, especially when dealing with immature trial data.
+          See Che et al. (2022) <doi:10.1177/0272989X221134545>.
 License: GPL (>= 3)
 Additional_repositories: https://giabaio.r-universe.dev, https://inla.r-inla-download.org/R/stable
 Encoding: UTF-8

R/fit_inla_pw.R

@@ -12,11 +12,12 @@
 #' @export
 #'
 #' @examples
-#' \dontrun{
-#' data("TA174_FCR", package = "blendR")
-#' head(dat_FCR)
-#'
-#' obs_Surv <- fit_inla_pw(data = dat_FCR, cutpoints = seq(0, 180, by = 5))
+#' \donttest{
+#'  if (requireNamespace("INLA", quietly = TRUE)) {
+#'   data("TA174_FCR", package = "blendR")
+#'   head(dat_FCR)
+#'   obs_Surv <- fit_inla_pw(data = dat_FCR, cutpoints = seq(0, 180, by = 5))
+#'  }
 #' }
 #'
 fit_inla_pw <- function(inla.formula = inla.surv(death_t, death) ~ -1,
@@ -28,7 +29,8 @@ fit_inla_pw <- function(inla.formula = inla.surv(death_t, death) ~ -1,
     stop(
       "The 'INLA' package is required to use this function. ",
       "Please install it from its repository by running: ",
-      "install.packages('INLA', repos = c(getOption('repos'), INLA = 'https://inla.r-inla-download.org/R/stable'), dep = TRUE)"
+      "install.packages('INLA', repos = c(getOption('repos'),
+      INLA = 'https://inla.r-inla-download.org/R/stable'), dep = TRUE)"
     )
   }