data(lesion_data)
data(hg38_gene_annotation)
data(clin_data)
# Step 1: Prepare gene-lesion overlap
gene.lsn <- prep.gene.lsn.data(lesion_data, hg38_gene_annotation)
gene.lsn.overlap <- find.gene.lsn.overlaps(gene.lsn)
# Step 2: Create a binary lesion matrix (minimum 5 patients per lesion)
lsn.binary.mtx <- prep.binary.lsn.mtx(gene.lsn.overlap, min.ngrp = 5)
# Step 3: Create survival objects and add to clinical data
library(survival)
clin_data$EFS <- Surv(clin_data$efs.time, clin_data$efs.censor)
clin_data$OS <- Surv(clin_data$os.time, clin_data$os.censor)
# Step 4: Specify outcomes of interest
clinvars <- c("MRD.binary", "EFS", "OS")
# Step 5: Run association analysis
assc.outcomes <- grin.assoc.lsn.outcome(lsn.binary.mtx,
clin_data,
hg38_gene_annotation,
clinvars)
# Optional: Adjust for covariates using the 'covariate' argument
Run the code above in your browser using DataLab