fix bug: `Error in SetRows.bm(x, i, value) : Illegal row index usage …

…in extraction.`
xiaolei-lab · Oct 7, 2023 · bb8d435 · bb8d435
1 parent fd7d78b
commit bb8d435
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/MVP.Data.r b/R/MVP.Data.r
@@ -476,12 +476,12 @@ MVP.Data.Numeric2MVP <- function(num_file, map_file, out='mvp', maxLine=1e4, pri
             line <- do.call(rbind, strsplit(line, '\\s+'))
             if (row_names) { line <- line[, 2:ncol(line)]}
             if (transposed) {
-                bigmat[, (i + 1):(i + length(line))] <- line
-                i <- i + length(line)
+                bigmat[, (i + 1):(i + ncol(line))] <- line
+                i <- i + ncol(line)
                 percent <- 100 * i / n
             } else {
-                bigmat[(i + 1):(i + length(line)), ] <- line
-                i <- i + length(line)
+                bigmat[(i + 1):(i + nrow(line)), ] <- line
+                i <- i + nrow(line)
                 percent <- 100 * i / m
             }