In VanAndelInstitute/bifurcatoR: Hunt for bumps in high-dimensional (or low-dimensional!) data

knitr::opts_chunk$set(fig.width=8, fig.height=4,
                      echo=FALSE, warning=FALSE, message=FALSE)
# rmarkdown::render("tableOne.Rmd", "pdf_document") # to render as PDF

Covariates and outcomes for MLL and NSD1 fusion patients

Patient number 368 does not have an annotated sex or age in the COG CDEs.

require(bifurcatoR)
data(dxsmall, package="bifurcatoR")
covs <- as.data.frame(colData(dxsmall))

Aggregate

Tabulate age group, sex, protocol, and outcome overall. NA will be tabulated whenever present.

if (requireNamespace("tableone")) {
  CreateTableOne(data=covs, includeNA=TRUE)
}

Per trial

Tabulate age group, sex, and outcome per trial

if (requireNamespace("tableone")) {
  CreateTableOne(data=subset(covs), strata="Protocol", includeNA=TRUE)
}

By fusion

Tabulate age group, sex, protocol, and outcome by fusion group

if (requireNamespace("tableone")) {
  CreateTableOne(data=subset(covs), strata="FusionGroup", includeNA=TRUE)
}

By fusion, by trial

Tabulate age group, sex, protocol, and outcome by fusion group and trial.

if (requireNamespace("tableone")) {
  CreateTableOne(data=subset(covs), strata=c("FusionGroup","Protocol"), 
                 includeNA=TRUE)
}

VanAndelInstitute/bifurcatoR documentation built on Oct. 13, 2024, 6:29 p.m.