library('knitr') opts_chunk$set( cache = FALSE, fig.align = 'center', dev = 'png', fig.width=9, fig.height=7, echo = TRUE, message = FALSE )
In addition to the recapitulated study data, the kmdata
package contains
the algorithm to re-create patient-level time-to-event data from digitized
survival curves.
Digitized curves are simply the x- and y-coordinates of the Kaplan-Meier
curves which can be generated several ways including the \code{R} package
digitize
or proprietary software such as
DigitizeIt.
library('kmdata') xy <- system.file( 'etc', 'init', 'Checkmate_067_S3A_Nivolumab.csv', package = 'kmdata' ) ar <- system.file( 'etc', 'init', 'Checkmate_067_At_Risk.csv', package = 'kmdata' ) dd <- read.csv(xy) aa <- read.csv(ar) # aa <- aa[aa$nrisk > 0, ] pd <- ipd(dd$T, dd$S, aa$trisk, aa$nrisk, arm = 'Nivo') kmplot(pd, xaxis.at = aa$trisk, conf.int = FALSE, median = FALSE) points(S ~ T, dd, type = 's', col = 'red') legend( 'topright', col = 1:2, lty = 1, bty = 'n', lwd = 2, legend = c('Re-capitulated', 'Truth (no censoring\ndata available)') )
Guyot, Patricia, et al. Enhanced secondary analysis of survival data: reconstructing the data from published Kaplan-Meier survival curves. BMC Medical Research Methodology 2012, 12:9.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.