Survival Analysis

library(DT)
datatable(rownames_to_column(p_survival,"ModuleNr") %>% mutate(ModuleNr=paste0('<a href="./modules/module',sub("Module ","",ModuleNr),'.html">',ModuleNr,'</a>')) %>% select(ModuleNr,coxregwaldtestp,coxregwaldtestpadj,logranktestp,logranktestpadj),
          class = 'display',
          extensions = 'Buttons',
          rownames = FALSE,
          options = list(pageLength = 10,dom = 'Bfrtip',buttons = list(list(extend = 'csv',text = "Save CSV", title="SurvivalStats"))),escape=FALSE) %>%
          formatSignif(c("coxregwaldtestp","coxregwaldtestpadj","logranktestp","logranktestpadj"),3) %>%
          formatStyle(c("coxregwaldtestp","coxregwaldtestpadj","logranktestp","logranktestpadj"), backgroundColor = styleInterval(c(0.01, 0.05),c("forestgreen","lightgreen","white")))



broadinstitute/ImagingAMARETTO documentation built on Dec. 3, 2019, 6:38 p.m.