From fc412992cdf27609477c2c9942a4495dbf68377c Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Tue, 30 Jul 2024 12:23:58 +0200 Subject: [PATCH] squash! Replace `1:` with `seq_len()` (#45) --- R/count_nonzero_a.R | 2 +- inst/examples/MADMMplasso_example.R | 2 +- man/MADMMplasso.Rd | 2 +- tests/testthat/test-admm_MADMMplasso_cpp.R | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/count_nonzero_a.R b/R/count_nonzero_a.R index 1ff961c..db43eb9 100644 --- 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 index 38b7d03..8b7c3c6 100644 --- 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 index 49d28bc..fdc31b8 100644 --- a/man/MADMMplasso.Rd +++ b/man/MADMMplasso.Rd @@ -173,7 +173,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/tests/testthat/test-admm_MADMMplasso_cpp.R b/tests/testthat/test-admm_MADMMplasso_cpp.R index 438e03b..04cbbba 100644 --- 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