Skip to content
Permalink
Browse files

Update combineSVABAandTITAN.R

  • Loading branch information
annahoge committed Feb 3, 2020
1 parent c2e94c6 commit 3c7c04d0237070a763139a1f77610b823feb1bf4
Showing with 1 addition and 1 deletion.
  1. +1 −1 code/combineSVABAandTITAN.R
@@ -124,7 +124,7 @@ segs <- fread(segFile)
segs <- cbind(SEG.id = 1:nrow(segs), segs)
sv.seg <- getSegSVoverlap(segs, svaba, event.cn=unique(segs$Corrected_Call), buffer=cn.buffer)
sv.seg.interChr <- getSegSVoverlap(segs, svaba, event.cn=unique(segs$Corrected_Call), buffer=cn.buffer, interChr=TRUE)
sv.seg <- rbind(sv.seg, sv.seg.interChr)
sv.seg <- rbind(sv.seg, sv.seg.interChr, fill = TRUE)
# intra-chr
indCN <- sv.seg[support %in% c("SVABA"), SV.id]
svaba[SV.id %in% indCN, support := "CN"]

0 comments on commit 3c7c04d

Please sign in to comment.
You can’t perform that action at this time.