Style updates

Co-authored-by: Malcolm Barrett <malcolmbarrett@users.noreply.github.com>
USCbiostats · Dec 11, 2023 · 5ee04df · 5ee04df
1 parent f958e74
commit 5ee04df
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/superPartition.R b/R/superPartition.R
@@ -116,7 +116,7 @@ super_partition <- function(full_data,
 
     # keep looping until all clusters are under max cluster size
     while(max(cs) > cluster_size) {
-      for (l in 1:length(cs)) {
+      for (l in seq_along(cs)) {
         # if cluster size is over max cluster size...
         if(cs[l] > cluster_size) {
           # cluster again