Update an example of a disposition table to make it more realistic

Merck · Dec 16, 2024 · 97ff9b1 · 97ff9b1
1 parent f25bfc2
commit 97ff9b1
Show file tree

Hide file tree

Showing 3 changed files with 130 additions and 70 deletions.
diff --git a/vignettes/disposition.Rmd b/vignettes/disposition.Rmd
@@ -78,7 +78,7 @@ adsl[adsl[["EOSSTT"]] == "Discontinued", "DCSREAS"] <- sample(
 
 # Create a variable EOTSTT1 indicating the end of treatment status part 1
 adsl$EOTSTT1 <- ifelse(adsl$DISCONFL == "Y", "Discontinued", "Completed")
-adsl$DCTREAS <- ifelse(adsl$EOTSTT1 == "Discontinued" & adsl$EOSSTT == "Discontinued", adsl$DCREASCD, NA)
+adsl$DCTREAS <- ifelse(adsl$EOTSTT1 == "Discontinued", adsl$DCREASCD, NA)
 head(adsl)
 ```
 

diff --git a/vignettes/outtable/disposition.rtf b/vignettes/outtable/disposition.rtf
diff --git a/vignettes/pdf/disposition.pdf b/vignettes/pdf/disposition.pdf