knitr::opts_chunk$set(collapse = TRUE, comment = "#>", warning = FALSE, message = FALSE, fig.align = 'center', results = 'asis', fig.show = 'hold', fig.width = 7, fig.height = 5)
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", warning = FALSE, message = FALSE, fig.align = 'center', fig.show = 'hold', fig.width = 5, fig.height = 3.5)
library(survivALL) library(Biobase) library(knitr)
To determine and ensure reliable prognostic association as a measure of significance, survivALL can perform a non-parametric bootstrapping procedure. In short we calculate, for each point-of-separation a distribution of expected hazard ratios (HRs), against which we're able to compare our observed HRs as part of our analysis.
To achieve this, we randomly sample our survival data with replacement and then calculate survival statistics for all points-of-separation, exactly as we would for a biomarker under investigation. By repeating this procedure 1,000s or 10,000s of times, we produce our distribution of expected hazard ratios.
data(nki_subset) #bootstrapping data should be in the format of 1 repeat per column bs_mtx <- matrix(nrow = ncol(nki_subset), ncol = 20) system.time( for(i in 1:ncol(bs_mtx)){ bs_mtx[, i] <- allHR(measure = sample(1:ncol(nki_subset), replace = TRUE), srv = pData(nki_subset), time = "t.dmfs", event = "e.dmfs") } ) kable(bs_mtx[1:20, 1:5])
Having calculated our bootstrapped data we then simply hand the matrix to either the survivALL()
or plotALL()
functions (using the bs_dfr =
argument) to handle the subsequent significance calculations. It should be noted that bootstrapping up to 10,000x can be a long process requiring an investment of time.
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.