Philip Pallmann PhilipPallmann
PhilipPallmann
/ ggsurv.R
Last active
August 29, 2015 14:03
— forked from mattbaggott/ggsurvival.R
Draw ggplot2-style Kaplan-Meier curves (slightly modified version of mattbaggott/ggsurvival.R).
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ggsurv <- function(f.survfit, f.CI="default", f.shape=3){ | |
| require(ggplot2, quietly=TRUE) | |
| # initialise frame variable | |
| f.frame <- NULL | |
| # check if more then one strata | |
| if(length(names(f.survfit$strata)) == 0){ | |
| # create data.frame with data from survfit |
PhilipPallmann
/ toSurv.R
Last active
August 29, 2015 14:03
Convert a survival dataset in wide format (with numbers of survivors in columns) to a list with variables 'time' and 'event' as required for survival analysis in R.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| toSurv <- function(data, times){ | |
| if(ncol(data)!=length(times)){ | |
| stop("'data' and 'time' must be equal in length.") | |
| } | |
| last <- ncol(data) | |
| eventlist <- timelist <- list() | |