Description Usage Arguments Value Examples

This function plots summaries of prognostic enrichment of clinical trials with survival outcomes, based on clinical trial metrics estimated by `surv_enrichment`

.

1 2 | ```
surv_plot_enrichment(x, km.quantiles = c(0,0.25,0.5,0.75),
km.range = NULL, alt.color = NULL)
``` |

`x` |
Object returned by |

`km.quantiles` |
Enrichment levels on which Kaplan-Meier survival estimates (Plot 1) are plotted. Defaults to four quartiles. |

`km.range` |
(Optional) a scalar specifying the range of time for which Kaplan-Meier survival estimates (Plot 1) are plotted. Defaults to the last time point of observation. |

`alt.color` |
(Optional) allows the user to specify the color of curves for clinical trial metrics (Plots 2-6). The length should match the number of trial lengths considered. Defaults to |

A grid containing either the first 4 or 6 plots described below.

`km.plot` |
The Kaplan-Meier survival curves for specified enrichment levels. The vertical reference line(s) correspond to |

`prob.plot` |
The estimated event probability (and 95% confidence intervals) at each enrichment level. |

`ss.plot` |
The estimated sample size (and confidence intervals) at each enrichment level. |

`screen.plot` |
The estimated number of patients that need to be screened (and confidence intervals) to enroll the trial. |

`cost.plot` |
The estimated total cost of the trial (and confidence intervals). |

`reduction.cost.plot` |
The percentage of reduction in total cost comparing an enriched versus unenriched trial. |

`summary` |
A grid of the first 4 or all 6 plots combined together. |

1 2 3 4 5 6 7 8 9 10 11 12 | ```
## Following the example of 'surv_enrichment':
data(SurvMarkers)
library(survival)
SurvMarkers$surv <- Surv(SurvMarkers$time, SurvMarkers$event)
rslt <- surv_enrichment(formula = surv~x1+x2, data = SurvMarkers, hr = 0.8, a=12, f=36,
cost.screening = 300, cost.keeping = NULL, cost.unit.keeping = 300,
method = "KM", power = 0.9, alpha = 0.05, one.sided = FALSE,
selected.biomarker.quantiles = seq(from = 0, to = 0.9, by = 0.1),
do.bootstrap = FALSE, print.summary.tables = FALSE)
plots <- surv_plot_enrichment(rslt, km.quantiles = c(0,0.25,0.5,0.75))
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.