From f875229f2f89605f5ec9fdb2d69bcf7313289079 Mon Sep 17 00:00:00 2001 From: Henrique Sposito Date: Fri, 24 May 2024 09:44:36 +0200 Subject: [PATCH] Fixed small issue with `cluster_concor()` --- R/model_cluster.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/model_cluster.R b/R/model_cluster.R index 876629ba..dcbe69c2 100644 --- a/R/model_cluster.R +++ b/R/model_cluster.R @@ -80,7 +80,7 @@ cluster_concor <- function(.data, census){ if(manynet::is_twomode(.data)){ p_list <- list(p_list[[1]][, !manynet::node_mode(.data), drop = FALSE], p_list[[1]][, manynet::node_mode(.data), drop = FALSE]) - p_group[[i]] <- lapply(p_list, function(z) colnames(z)) + p_group[[1]] <- lapply(p_list, function(z) colnames(z)) i <- 2 } else i <- 1 while(!all(vapply(p_list, function(x) ncol(x)==1, logical(1)))){