data(lesion_data)
data(hg38_gene_annotation)
data(hg38_chrom_size)
# Example 1: Use lesion boundaries for gains
gain <- lesion_data[lesion_data$lsn.type == "gain", ]
lsn.bound.gain <- grin.lsn.boundaries(gain, hg38_chrom_size)
GRIN.results.gain.bound <- grin.stats(gain, lsn.bound.gain, hg38_chrom_size)
genomewide.log10q.plot(GRIN.results.gain.bound,
lsn.grps = c("gain"),
lsn.colors = c("gain" = "red"),
max.log10q = 10)
# hg38_gene_annotation can be used instead of the boundaries as the marker data.
# This function can be used similarly for other lesion types (e.g., loss, mutation).
Run the code above in your browser using DataLab