avoiding making same indexing mistake as I jusst fixed a few lines be…

…low (1:0)
friendsofstrandseq · May 26, 2023 · d54ec74 · d54ec74
1 parent 8264277
commit d54ec74
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/workflow/scripts/plotting/plot-sv-calls_dev.R b/workflow/scripts/plotting/plot-sv-calls_dev.R
@@ -363,7 +363,7 @@ if (!is.null(f_segments)) {
 
 
   seg <-
-    merge(seg, bins[, .N, by = chrom][, .(chrom, N = c(0, cumsum(N)[1:(.N - 1)]))], by = "chrom")
+    merge(seg, bins[, .N, by = chrom][, .(chrom, N = c(0, cumsum(N)[- .N]))], by = "chrom")
 
   # print(c(1, bps[1:(.N - 1)] + 1))
   # print(bps)