squash! Replace 1: with seq_len() (#45)

ocbe-uio · Jul 30, 2024 · fc41299 · fc41299
1 parent dbc0791
commit fc41299
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/count_nonzero_a.R b/R/count_nonzero_a.R
@@ -1,7 +1,7 @@
 count_nonzero_a <- function(x) {
   if (length(dim(x)) == 3) {
     count1 <- matrix(0, dim(x)[3])
-    for (ww in 1:dim(x)[3]) {
+    for (ww in seq_len(dim(x)[3])) {
       n <- sum(x[, , ww] != 0)
       count1[ww] <- n
     }

diff --git a/inst/examples/MADMMplasso_example.R b/inst/examples/MADMMplasso_example.R
@@ -67,7 +67,7 @@ e <- MASS::mvrnorm(N, mu = rep(0, 6), Sigma = esd)
 y_train <- X %*% Beta + pliable + e
 y <- y_train
 
-colnames(y) <- c(paste0("y", 1:(ncol(y))))
+colnames(y) <- c(paste0("y", seq_len(ncol(y))))
 TT <- tree_parms(y)
 plot(TT$h_clust)
 gg1 <- matrix(0, 2, 2)

diff --git a/man/MADMMplasso.Rd b/man/MADMMplasso.Rd
diff --git a/tests/testthat/test-admm_MADMMplasso_cpp.R b/tests/testthat/test-admm_MADMMplasso_cpp.R
@@ -87,7 +87,7 @@ e <- mvrnorm(N, mu = rep(0, 6), Sigma = esd)
 y_train <- X %*% Beta + pliable + e
 y <- y_train
 colnames(y) <- 1:6
-colnames(y) <- c(paste0("y", 1:(ncol(y))))
+colnames(y) <- c(paste0("y", seq_len(ncol(y))))
 TT <- tree_parms(y)
 C <- TT$Tree
 CW <- TT$Tw