Avoid i undefined issue

stocnet · May 24, 2024 · 3aff8fc · 3aff8fc
1 parent f30fa52
commit 3aff8fc
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/model_cluster.R b/R/model_cluster.R
@@ -77,6 +77,7 @@ cluster_concor <- function(.data, census){
   if(is.null(colnames(p_list[[1]]))) 
     colnames(p_list[[1]]) <- paste0("V",1:ncol(p_list[[1]]))
   p_group <- list()
+  i <- NULL
   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])