knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
The goal of doSurvival is to do radiomics-based survival analysis
You can install the development version from GitHub with:
# install.packages("devtools") devtools::install_github("yzhizai/doSurvival")
This is a basic example which shows you how to solve a common problem:
library(doSurvival) ## basic example code radFile <- file.choose() cliFile <- file.choose() dt.radiomics <- read_csv(radFile) %>% select(-1) dt.clinics <- read_csv(cliFile) %>% select(-1) mod_rad <- survRadiomics$new(time = 'PFS', event = 'Progress') mod_rad <- mod_rad$run(dt.radiomics = dt.radiomics, dt.clinics = dt.clinics) mod_rad$figure(outName = 'output.pptx') mod_nomo <- survNomogram$new(time = 'PFS', event = 'Progress') mod_nomo <- mod_nomo$run(dt = dt.clinics, restep = T) mod_nomo$figure(dt = dt.clinics, outName = 'nomogram.pptx') out_nomo <- mod_nomo$predict(dt = dt.clinics) out_nomo$kmplot('km.pptx')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.