Skip to contents
# For vignette demonstration, ensure 'treatmentResponse' is available.
# This data is part of the ClinicoPathDescriptives package.
data(treatmentResponse, package = "ClinicoPathDescriptives")
if (!exists("treatmentResponse")) {
  set.seed(123)
  
  # Step 1: Create the data frame with the first two columns.
  treatmentResponse <- data.frame(
    patientID = 1:50,
    change = round(c(rnorm(25, -40, 20), rnorm(25, 20, 25)))
  )
  
  # Step 2: Now that 'treatmentResponse$change' exists, create the responseCategory column.
  treatmentResponse$responseCategory <- factor(
    ifelse(treatmentResponse$change <= -30, "Partial Response",
      ifelse(treatmentResponse$change >= 20, "Progressive Disease", "Stable Disease")
    )
  )
}
head(treatmentResponse)
#>   patientID change responseCategory
#> 1         1    -51 Partial Response
#> 2         2    -45 Partial Response
#> 3         3     -9   Stable Disease
#> 4         4    -39 Partial Response
#> 5         5    -37 Partial Response
#> 6         6     -6   Stable Disease
library(ClinicoPath)
#> Registered S3 method overwritten by 'future':
#>   method               from      
#>   all.equal.connection parallelly
#> Warning: replacing previous import 'dplyr::select' by 'jmvcore::select' when
#> loading 'ClinicoPath'
#> Warning: replacing previous import 'cutpointr::roc' by 'pROC::roc' when loading
#> 'ClinicoPath'
#> Warning: replacing previous import 'cutpointr::auc' by 'pROC::auc' when loading
#> 'ClinicoPath'
#> Warning: replacing previous import 'magrittr::extract' by 'tidyr::extract' when
#> loading 'ClinicoPath'
#> Warning in check_dep_version(): ABI version mismatch: 
#> lme4 was built with Matrix ABI version 1
#> Current Matrix ABI version is 0
#> Please re-install lme4 from source or restore original 'Matrix' package
#> Warning: replacing previous import 'jmvcore::select' by 'dplyr::select' when
#> loading 'ClinicoPath'
#> Registered S3 methods overwritten by 'ggpp':
#>   method                  from   
#>   heightDetails.titleGrob ggplot2
#>   widthDetails.titleGrob  ggplot2
#> Warning: replacing previous import 'DataExplorer::plot_histogram' by
#> 'grafify::plot_histogram' when loading 'ClinicoPath'
#> Warning: replacing previous import 'ROCR::plot' by 'graphics::plot' when
#> loading 'ClinicoPath'
#> Warning: replacing previous import 'dplyr::select' by 'jmvcore::select' when
#> loading 'ClinicoPath'
#> Warning: replacing previous import 'tibble::view' by 'summarytools::view' when
#> loading 'ClinicoPath'
#> 
#> Attaching package: 'ClinicoPath'
#> The following object is masked _by_ '.GlobalEnv':
#> 
#>     treatmentResponse

# Check available variables in treatmentResponse
cat("Available variables in treatmentResponse:\n")
#> Available variables in treatmentResponse:
print(names(treatmentResponse))
#> [1] "patientID"        "change"           "responseCategory"

# Basic waterfall plot example
cat("\nWaterfall plot functionality available with appropriate data structure")
#> 
#> Waterfall plot functionality available with appropriate data structure
cat("\nRequired variables: PatientID, ResponseValue, Month")
#> 
#> Required variables: PatientID, ResponseValue, Month
# Waterfall plot output would be displayed here
cat("Waterfall plot visualization available with proper data structure")
#> Waterfall plot visualization available with proper data structure