changed instances of 1:x to seq_len()

MicTott · Mar 20, 2024 · e757ebb · e757ebb
1 parent 9cde296
commit e757ebb
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/findArtifacts.R b/R/findArtifacts.R
@@ -89,7 +89,7 @@ findArtifacts <- function(spe, mito_percent="expr_chrM_ratio",
 
     # ======= Calculate local mito variance ========
     var_matrix <- c()
-    for (i in 1:n_rings) {
+    for (i in seq_len(n_rings)) {
 
       # ==== local mito variance ====
       # get n neighbors for i rings

diff --git a/R/localOutliers.R b/R/localOutliers.R
@@ -86,7 +86,7 @@ localOutliers <- function(spe,
         mod_z_matrix <- array(NA, nrow(dnn))
 
         # Loop through each row in the nearest neighbor index matrix
-        for (i in 1:nrow(dnn)) {
+        for (i in seq_len(nrow(dnn))) {
             dnn.idx <- dnn[i, ]
             mod_z_matrix[i] <- modified_z(spaQC[c(i, dnn.idx[dnn.idx != 0]), ][[metric_to_use]])[1]
         }

diff --git a/R/localVariance.R b/R/localVariance.R
@@ -96,7 +96,7 @@ localVariance <- function(spe, n_neighbors = 36, features = c("expr_chrM_ratio")
     colnames(mean_matrix) <- features_to_use
 
     # Loop through each row in the nearest neighbor index matrix
-    for (i in 1:nrow(dnn)) {
+    for (i in seq_len(nrow(dnn))) {
       dnn.idx <- dnn[i, ]
       for (j in seq_along(features_to_use)) {
         var_matrix[i, j] <- var(spaQC[c(i, dnn.idx[dnn.idx != 0]), ][[features_to_use[j]]], na.rm=TRUE)[1]