From 5ee04df15bc24eaa0cb14354e04c89340ce89038 Mon Sep 17 00:00:00 2001 From: Katelyn Queen <65574529+katelynqueen98@users.noreply.github.com> Date: Mon, 11 Dec 2023 08:20:08 -0800 Subject: [PATCH] Style updates Co-authored-by: Malcolm Barrett --- R/superPartition.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/superPartition.R b/R/superPartition.R index a8e0639..b8d5ef3 100644 --- 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