refactor: use more seq_along(x) instead of 1:length(x)

Author: m-muecke

tests/factorize_test_irregular.R

@@ -93,7 +93,7 @@ x_plot <- list(x, x, fx[[3]])
 cols <- c("cornflowerblue", "darkseagreen", "darkred")
 opar <- par(mfrow = c(3,2))
 wch <- c(1,2,10)
-for(w in 1:length(wch)) {
+for(w in seq_along(wch)) {
   plot.mboost(fac$resp, which = wch[w], col = "darkgrey", ask = FALSE,
        main = names(fac$resp$baselearner[wch[w]]))
   lines(sort(t), ft[[w]][order(t)]*max(d), col = cols[w], lty = 2)
@@ -158,7 +158,7 @@ ratio <- -max(abs(predict(fac$resp, which = 1))) / max(abs(predict(fac2$resp, wh
 
 opar <- par(mfrow = c(3,2))
 wch <- c(1,2,10)
-for(w in 1:length(wch)) {
+for(w in seq_along(wch)) {
   plot.mboost(fac$resp, which = wch[w], col = "darkgrey", ask = FALSE,
                                 main = names(fac$resp$baselearner[wch[w]]))
 

tests/factorize_test_regular.R

@@ -76,7 +76,7 @@ x_plot <- list(x, x, fx[[3]])
 cols <- c("cornflowerblue", "darkseagreen", "darkred")
 opar <- par(mfrow = c(3,2))
 wch <- c(1,2,10)
-for(w in 1:length(wch)) {
+for(w in seq_along(wch)) {
   plot.mboost(fac$resp, which = wch[w], col = "darkgrey", ask = FALSE,
        main = names(fac$resp$baselearner[wch[w]]))
   lines(t, ft[[w]]*max(d), col = cols[w], lty = 2)