Skip to content

Instantly share code, notes, and snippets.

View gklambauer's full-sized avatar

G K gklambauer

View GitHub Profile
library(cn.mops)
library(RUnit)
tumor_gr <- getReadCountsFromBAM("tumorA.chr4.bam",
refSeqName="chr4",WL=10000,mode="unpaired")
normal_gr <- getReadCountsFromBAM("normalA.chr4.bam",
refSeqName="chr4",WL=10000,mode="unpaired")
# We need a special normalization because the tumor has made large CNVs
X <- tumor_gr