From 7f7be04247ded0ba5394893f20df4abef304f228 Mon Sep 17 00:00:00 2001
From: Andreas Bender <bender.at.R@gmail.com>
Date: Sat, 24 Feb 2024 16:43:23 +0100
Subject: [PATCH] update vignettes veteran data usage

---
 vignettes/basics.Rmd    | 2 +-
 vignettes/splines.Rmd   | 2 +-
 vignettes/strata.Rmd    | 2 +-
 vignettes/tveffects.Rmd | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/vignettes/basics.Rmd b/vignettes/basics.Rmd
index fff1c470..f5a6ee6f 100644
--- a/vignettes/basics.Rmd
+++ b/vignettes/basics.Rmd
@@ -56,7 +56,7 @@ library(mgcv)
 library(pammtools)
 library(dplyr)
 
-data("veteran", package = "survival") # load veteran data
+veteran <- survival::veteran
 # remove ties to illustrate equivalence with Cox approach
 vetu <- filter(veteran, !duplicated(time))
 ped_vetu <- vetu %>%
diff --git a/vignettes/splines.Rmd b/vignettes/splines.Rmd
index d9d4c999..3374be7c 100644
--- a/vignettes/splines.Rmd
+++ b/vignettes/splines.Rmd
@@ -35,7 +35,7 @@ We first illustrate the estimation on non-linear smooth effects using
 the `veteran` data from the survival package:
 
 ```{r}
-data("veteran", package="survival") # load veteran package
+veteran <- survival::veteran # load veteran package
 veteran <- veteran %>%
   mutate(
     trt   = 1+(trt == 2),
diff --git a/vignettes/strata.Rmd b/vignettes/strata.Rmd
index 5fbcdb6d..659d786d 100644
--- a/vignettes/strata.Rmd
+++ b/vignettes/strata.Rmd
@@ -43,7 +43,7 @@ from the `survival` package,
 where the cell type of the lung cancer had four levels:
 
 ```{r}
-data("veteran") # load veteran data
+veteran <- survival::veteran # load veteran data
 veteran <- veteran %>%
   mutate(
     trt   = 1*(trt == 2),
diff --git a/vignettes/tveffects.Rmd b/vignettes/tveffects.Rmd
index 330d876a..6921fb9b 100644
--- a/vignettes/tveffects.Rmd
+++ b/vignettes/tveffects.Rmd
@@ -71,7 +71,7 @@ Karnofsky performance scores `karno` (the higher the better), `age` and whether
 
 ```{r}
 # for some reason the prior variable is coded 0/10 instead of 0/1
-data("veteran", package = "survival")
+veteran <- survival::veteran
 veteran <- veteran %>%
   mutate(
     trt   = 1L * (trt == 2),