From c13fe8bf3eb9965887272376478dd677787366e1 Mon Sep 17 00:00:00 2001 From: Louis Date: Mon, 16 Feb 2026 13:34:43 +0100 Subject: [PATCH] =?UTF-8?q?Commentaires=20sur=20les=20diff=C3=A9rents=20mu?= =?UTF-8?q?ltipartites?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- multipartite_fungustree.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/multipartite_fungustree.R b/multipartite_fungustree.R index 3dd8c5f..45bcc37 100644 --- a/multipartite_fungustree.R +++ b/multipartite_fungustree.R @@ -23,8 +23,13 @@ givenclassif <- list(tree_geo_sbm$memberships, fungus_tree_sbm$memberships[["row geo_multi_noinit <- multipartiteBM(list_Net = list_Net, v_distrib = v_distrib, namesFG = namesFG, givenclassif = NULL, initBM = TRUE, verbose = TRUE) geo_multi_noinit_nobm <- multipartiteBM(list_Net = list_Net, v_distrib = v_distrib, namesFG = namesFG, givenclassif = NULL, initBM = FALSE, verbose = TRUE) +# Les kmins donnent le même résultat ICL -449.21 geo_multi_noinit_nobm_kmin <- multipartiteBM(list_Net = list_Net, v_distrib = v_distrib, namesFG = namesFG, givenclassif = NULL, initBM = FALSE, verbose = TRUE, v_Kmin = c(7, 2)) geo_multi_noinit_kmin <- multipartiteBM(list_Net = list_Net, v_distrib = v_distrib, namesFG = namesFG, givenclassif = NULL, initBM = TRUE, verbose = TRUE, v_Kmin = c(7, 2)) +geo_multi_init_kmin <- multipartiteBM(list_Net = list_Net, v_distrib = v_distrib, namesFG = namesFG, givenclassif = givenclassif, v_Kmin = c(7, 2)) # Ne s'autorise pas à descendre +## + +# Le meilleur ICL est ici : -408.05 avec une classif de base issue de blockmodels indépendants geo_multi_init <- multipartiteBM(list_Net = list_Net, v_distrib = v_distrib, namesFG = namesFG, givenclassif = givenclassif) dataR6 <- formattingData(list_Net, v_distrib)