Merge pull request KrasnitzLab#568 from belleau/main

Update
adeschen · Oct 22, 2024 · 9b64817 · 9b64817
2 parents 8f2ea94 + 87b9718
commit 9b64817
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/process1KG.R b/R/process1KG.R
@@ -1165,8 +1165,8 @@ addBlockFromDetFile <- function(fileReferenceGDS, gdsRefAnnotFile, pathBlock,
             tmp <- processBlockChr(fileReferenceGDS, file.path(pathBlock, listChrCur))
             listBlock[[chr]] <- tmp$block.snp
             if(chr > 1) {
-                vMax <- max(listBlock[[chr-1]])
-                vMin <- min(listBlock[[chr-1]])
+                vMax <- max(listBlock[[chr-1]], 0)
+                vMin <- min(listBlock[[chr-1]], 0)
                 listBlock[[chr]][listBlock[[chr]] > 0] <-
                     listBlock[[chr]][listBlock[[chr]] > 0] + vMax
                 if(vMin < 0) {