... | ... |
@@ -94,7 +94,7 @@ snpDiff <- |
94 | 94 |
ppFiles <- PileupFiles(c(bam1,bam2)) |
95 | 95 |
|
96 | 96 |
## split into 10M block |
97 |
- regSplit <- shift(as(breakInChunks(regEnd - regStart + 1,1e7L),'IRanges'),regStart-1) |
|
97 |
+ regSplit <- shift(as(breakInChunks(regEnd - regStart + 1, chunksize=1e7L),'IRanges'),regStart-1) |
|
98 | 98 |
|
99 | 99 |
## for each region |
100 | 100 |
regSplitDiffFunc <- function(splitIndex){ |