Performs agglomerative merging on network, starting with each block has a single node down to one block per node type. Arguments are level to perform merge at (int) and number of MCMC steps to peform between each collapsing to equilibriate block. See the agglomerative_merging.Rmd vignette for more complete discussion of options/behavior.

collapse_blocks(
  sbm,
  desired_n_blocks = 1,
  num_mcmc_sweeps = 0,
  sigma = 1.5,
  eps = 0.1,
  num_block_proposals = 5,
  level = 0,
  allow_exhaustive = TRUE,
  report_all_steps = TRUE
)

Arguments

sbm

sbm_network object as created by new_sbm_network.

desired_n_blocks

How many blocks should this given merge drop down to. If the network has more than one node type this number is multiplied by the total number of types.

num_mcmc_sweeps

How many MCMC sweeps the model does at each agglomerative merge step. This allows the model to allow nodes to find their most natural resting place in a given collapsed state. Larger values will slow down runtime but can potentially lead for more stable results.

sigma

Controls the rate of collapse. At each step of the collapsing the model will try and remove current_num_nodes(1 - 1/sigma) nodes from the model. So a larger sigma means a faster collapse rate.

eps

Controls randomness of move proposals. Effects both the block merging and mcmc sweeps.

num_block_proposals

Controls how many merger proposals are drawn for each block in the model. A larger number will increase the exploration of merge potentials but may lead the model to local minimums. If the number of proposals is greater than then number of blocks then all blocks are searched exhaustively.

level

Level of nodes who's blocks will have their block membership run through MCMC proposal-accept routine.

allow_exhaustive

If the number of proposals for a blocks merges is less than the number of proposals needed to check all possible merge combinations, should the model check all possible combinations?

report_all_steps

Should the model state be provided for every merge step or just the final one? If collapsing is being used to infer hierarcichal structure in data or inspection is desired this should be set to TRUE, otherwise it will slow down collapsing due to increased data transfer.

Value

An S3 object of class sbm_network. For details see new_sbm_network section "Class structure."

See also

Examples

set.seed(42) # Start with a random network of two blocks with 25 nodes each net <- sim_basic_block_network(n_blocks = 3, n_nodes_per_block = 25) %>% collapse_blocks(sigma = 1.2) # We can look directly at the collapse results net %>% get_collapse_results()
#> n_blocks entropy_delta entropy #> 1 62 487.831195 908.0214 #> 2 51 389.659975 1297.6813 #> 3 42 218.933607 1516.6149 #> 4 35 114.368664 1630.9836 #> 5 29 69.450719 1700.4343 #> 6 24 102.930705 1803.3650 #> 7 20 44.273907 1847.6389 #> 8 16 55.035197 1902.6741 #> 9 13 24.459271 1927.1334 #> 10 10 47.424779 1974.5582 #> 11 8 10.889257 1985.4474 #> 12 6 37.733011 2023.1805 #> 13 5 3.055692 2026.2361 #> 14 4 7.554315 2033.7905 #> 15 3 4.394537 2038.1850 #> 16 2 54.497010 2092.6820 #> 17 1 133.950723 2226.6327 #> merges #> 1 1, 4, 3, 6, 12, 11, 2, 13, 5, 9, 8, 10, 7, 22, 15, 14, 17, 21, 20, 18, 25, 16, 19, 24, 23, 26 #> 2 4, 1, 11, 8, 7, 3, 5, 9, 2, 10, 6, 12, 13, 20, 21, 22, 14, 17, 19, 18, 16, 15 #> 3 6, 3, 4, 1, 5, 9, 8, 2, 7, 13, 11, 15, 10, 14, 16, 12, 17, 18 #> 4 4, 6, 7, 5, 3, 2, 1, 9, 14, 13, 12, 10, 11, 8 #> 5 3, 1, 4, 6, 2, 5, 9, 7, 11, 8, 10, 12 #> 6 1, 3, 4, 5, 2, 10, 6, 9, 8, 7 #> 7 2, 4, 1, 3, 8, 7, 6, 5 #> 8 4, 1, 2, 3, 7, 8, 6, 5 #> 9 2, 1, 3, 6, 4, 5 #> 10 2, 1, 3, 5, 4, 6 #> 11 1, 2, 3, 4 #> 12 2, 1, 4, 3 #> 13 1, 2 #> 14 1, 2 #> 15 1, 2 #> 16 1, 2 #> 17 1, 2 #> state #> 1 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_0, bl_node_1, bl_node_2, bl_node_9, bl_node_4, bl_node_5, bl_node_6, bl_node_7, bl_node_7, bl_node_9, bl_node_6, bl_node_11, bl_node_12, bl_node_13, bl_node_14, bl_node_15, bl_node_16, bl_node_5, bl_node_1, bl_node_12, bl_node_23, bl_node_21, bl_node_4, bl_node_23, bl_node_24, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_29, bl_node_30, bl_node_31, bl_node_32, bl_node_33, bl_node_34, bl_node_35, bl_node_36, bl_node_37, bl_node_38, bl_node_39, bl_node_40, bl_node_41, bl_node_42, bl_node_43, bl_node_44, bl_node_45, bl_node_46, bl_node_47, bl_node_48, bl_node_49, bl_node_50, bl_node_51, bl_node_52, bl_node_53, bl_node_54, bl_node_55, bl_node_56, bl_node_57, bl_node_64, bl_node_59, bl_node_50, bl_node_61, bl_node_62, bl_node_61, bl_node_64, bl_node_65, bl_node_55, bl_node_56, bl_node_68, bl_node_69, bl_node_70, bl_node_71, bl_node_72, bl_node_73, bl_node_74, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 2 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_0, bl_node_13, bl_node_14, bl_node_6, bl_node_4, bl_node_5, bl_node_6, bl_node_7, bl_node_7, bl_node_6, bl_node_6, bl_node_11, bl_node_12, bl_node_13, bl_node_14, bl_node_4, bl_node_16, bl_node_5, bl_node_13, bl_node_12, bl_node_23, bl_node_21, bl_node_4, bl_node_23, bl_node_12, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_29, bl_node_30, bl_node_31, bl_node_32, bl_node_33, bl_node_34, bl_node_35, bl_node_36, bl_node_37, bl_node_38, bl_node_39, bl_node_40, bl_node_31, bl_node_42, bl_node_43, bl_node_44, bl_node_45, bl_node_46, bl_node_47, bl_node_25, bl_node_49, bl_node_50, bl_node_51, bl_node_52, bl_node_53, bl_node_54, bl_node_55, bl_node_56, bl_node_57, bl_node_64, bl_node_70, bl_node_50, bl_node_61, bl_node_62, bl_node_61, bl_node_64, bl_node_65, bl_node_55, bl_node_56, bl_node_68, bl_node_62, bl_node_70, bl_node_71, bl_node_72, bl_node_54, bl_node_29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 3 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_0, bl_node_13, bl_node_14, bl_node_6, bl_node_7, bl_node_5, bl_node_6, bl_node_7, bl_node_7, bl_node_6, bl_node_6, bl_node_0, bl_node_6, bl_node_13, bl_node_14, bl_node_7, bl_node_23, bl_node_5, bl_node_13, bl_node_6, bl_node_23, bl_node_5, bl_node_7, bl_node_23, bl_node_6, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_29, bl_node_30, bl_node_31, bl_node_32, bl_node_47, bl_node_34, bl_node_35, bl_node_31, bl_node_37, bl_node_38, bl_node_39, bl_node_28, bl_node_31, bl_node_42, bl_node_43, bl_node_44, bl_node_45, bl_node_46, bl_node_47, bl_node_25, bl_node_49, bl_node_50, bl_node_51, bl_node_52, bl_node_53, bl_node_54, bl_node_55, bl_node_56, bl_node_52, bl_node_64, bl_node_70, bl_node_50, bl_node_61, bl_node_62, bl_node_61, bl_node_64, bl_node_65, bl_node_55, bl_node_56, bl_node_68, bl_node_62, bl_node_70, bl_node_71, bl_node_72, bl_node_54, bl_node_29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 4 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_0, bl_node_0, bl_node_14, bl_node_6, bl_node_7, bl_node_5, bl_node_6, bl_node_7, bl_node_7, bl_node_6, bl_node_6, bl_node_0, bl_node_6, bl_node_0, bl_node_14, bl_node_7, bl_node_23, bl_node_5, bl_node_0, bl_node_6, bl_node_23, bl_node_5, bl_node_7, bl_node_23, bl_node_6, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_29, bl_node_46, bl_node_28, bl_node_32, bl_node_47, bl_node_34, bl_node_35, bl_node_28, bl_node_37, bl_node_38, bl_node_39, bl_node_28, bl_node_28, bl_node_42, bl_node_43, bl_node_44, bl_node_25, bl_node_46, bl_node_47, bl_node_25, bl_node_49, bl_node_50, bl_node_51, bl_node_52, bl_node_53, bl_node_54, bl_node_55, bl_node_56, bl_node_52, bl_node_64, bl_node_70, bl_node_50, bl_node_51, bl_node_62, bl_node_51, bl_node_64, bl_node_65, bl_node_55, bl_node_56, bl_node_65, bl_node_62, bl_node_70, bl_node_71, bl_node_53, bl_node_54, bl_node_29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 5 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_0, bl_node_0, bl_node_14, bl_node_6, bl_node_7, bl_node_5, bl_node_6, bl_node_7, bl_node_7, bl_node_6, bl_node_6, bl_node_0, bl_node_6, bl_node_0, bl_node_14, bl_node_7, bl_node_0, bl_node_5, bl_node_0, bl_node_6, bl_node_0, bl_node_5, bl_node_7, bl_node_0, bl_node_6, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_29, bl_node_26, bl_node_28, bl_node_32, bl_node_47, bl_node_34, bl_node_32, bl_node_28, bl_node_37, bl_node_28, bl_node_37, bl_node_28, bl_node_28, bl_node_44, bl_node_43, bl_node_44, bl_node_25, bl_node_26, bl_node_47, bl_node_25, bl_node_49, bl_node_50, bl_node_51, bl_node_52, bl_node_53, bl_node_54, bl_node_55, bl_node_56, bl_node_52, bl_node_64, bl_node_70, bl_node_50, bl_node_51, bl_node_62, bl_node_51, bl_node_64, bl_node_65, bl_node_55, bl_node_56, bl_node_65, bl_node_62, bl_node_70, bl_node_71, bl_node_53, bl_node_54, bl_node_29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 6 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_0, bl_node_0, bl_node_6, bl_node_6, bl_node_7, bl_node_5, bl_node_6, bl_node_7, bl_node_7, bl_node_6, bl_node_6, bl_node_0, bl_node_6, bl_node_0, bl_node_6, bl_node_7, bl_node_0, bl_node_5, bl_node_0, bl_node_6, bl_node_0, bl_node_5, bl_node_7, bl_node_0, bl_node_6, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_29, bl_node_26, bl_node_28, bl_node_32, bl_node_47, bl_node_44, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_28, bl_node_44, bl_node_43, bl_node_44, bl_node_25, bl_node_26, bl_node_47, bl_node_25, bl_node_49, bl_node_50, bl_node_51, bl_node_52, bl_node_53, bl_node_54, bl_node_55, bl_node_56, bl_node_52, bl_node_64, bl_node_70, bl_node_50, bl_node_51, bl_node_62, bl_node_51, bl_node_64, bl_node_53, bl_node_55, bl_node_56, bl_node_53, bl_node_62, bl_node_70, bl_node_52, bl_node_53, bl_node_54, bl_node_29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 7 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_0, bl_node_0, bl_node_6, bl_node_6, bl_node_7, bl_node_6, bl_node_6, bl_node_7, bl_node_7, bl_node_6, bl_node_6, bl_node_0, bl_node_6, bl_node_0, bl_node_6, bl_node_7, bl_node_0, bl_node_6, bl_node_0, bl_node_6, bl_node_0, bl_node_6, bl_node_7, bl_node_0, bl_node_6, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_29, bl_node_26, bl_node_28, bl_node_32, bl_node_47, bl_node_44, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_28, bl_node_44, bl_node_47, bl_node_44, bl_node_25, bl_node_26, bl_node_47, bl_node_25, bl_node_49, bl_node_50, bl_node_51, bl_node_52, bl_node_27, bl_node_54, bl_node_55, bl_node_56, bl_node_52, bl_node_64, bl_node_70, bl_node_50, bl_node_51, bl_node_52, bl_node_51, bl_node_64, bl_node_27, bl_node_55, bl_node_56, bl_node_27, bl_node_52, bl_node_70, bl_node_52, bl_node_27, bl_node_54, bl_node_29, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 8 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_6, bl_node_6, bl_node_6, bl_node_6, bl_node_7, bl_node_6, bl_node_6, bl_node_7, bl_node_7, bl_node_6, bl_node_6, bl_node_6, bl_node_6, bl_node_6, bl_node_6, bl_node_7, bl_node_6, bl_node_6, bl_node_6, bl_node_6, bl_node_6, bl_node_6, bl_node_7, bl_node_6, bl_node_6, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_47, bl_node_26, bl_node_28, bl_node_32, bl_node_47, bl_node_44, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_28, bl_node_44, bl_node_47, bl_node_44, bl_node_25, bl_node_26, bl_node_47, bl_node_25, bl_node_26, bl_node_50, bl_node_51, bl_node_52, bl_node_27, bl_node_54, bl_node_55, bl_node_50, bl_node_52, bl_node_64, bl_node_70, bl_node_50, bl_node_51, bl_node_52, bl_node_51, bl_node_64, bl_node_27, bl_node_55, bl_node_50, bl_node_27, bl_node_52, bl_node_70, bl_node_52, bl_node_27, bl_node_54, bl_node_47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 9 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_25, bl_node_26, bl_node_27, bl_node_28, bl_node_47, bl_node_26, bl_node_28, bl_node_32, bl_node_47, bl_node_44, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_32, bl_node_28, bl_node_28, bl_node_44, bl_node_47, bl_node_44, bl_node_25, bl_node_26, bl_node_47, bl_node_25, bl_node_26, bl_node_50, bl_node_52, bl_node_52, bl_node_27, bl_node_54, bl_node_55, bl_node_50, bl_node_52, bl_node_55, bl_node_70, bl_node_50, bl_node_52, bl_node_52, bl_node_52, bl_node_55, bl_node_27, bl_node_55, bl_node_50, bl_node_27, bl_node_52, bl_node_70, bl_node_52, bl_node_27, bl_node_54, bl_node_47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 10 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_26, bl_node_26, bl_node_27, bl_node_28, bl_node_47, bl_node_26, bl_node_28, bl_node_44, bl_node_47, bl_node_44, bl_node_44, bl_node_28, bl_node_44, bl_node_28, bl_node_44, bl_node_28, bl_node_28, bl_node_44, bl_node_47, bl_node_44, bl_node_26, bl_node_26, bl_node_47, bl_node_26, bl_node_26, bl_node_50, bl_node_52, bl_node_52, bl_node_27, bl_node_54, bl_node_55, bl_node_50, bl_node_52, bl_node_55, bl_node_55, bl_node_50, bl_node_52, bl_node_52, bl_node_52, bl_node_55, bl_node_27, bl_node_55, bl_node_50, bl_node_27, bl_node_52, bl_node_55, bl_node_52, bl_node_27, bl_node_54, bl_node_47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 11 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_26, bl_node_26, bl_node_27, bl_node_28, bl_node_47, bl_node_26, bl_node_28, bl_node_26, bl_node_47, bl_node_26, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_28, bl_node_26, bl_node_47, bl_node_26, bl_node_26, bl_node_26, bl_node_47, bl_node_26, bl_node_26, bl_node_55, bl_node_52, bl_node_52, bl_node_27, bl_node_54, bl_node_55, bl_node_55, bl_node_52, bl_node_55, bl_node_55, bl_node_55, bl_node_52, bl_node_52, bl_node_52, bl_node_55, bl_node_27, bl_node_55, bl_node_55, bl_node_27, bl_node_52, bl_node_55, bl_node_52, bl_node_27, bl_node_54, bl_node_47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 12 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_26, bl_node_26, bl_node_27, bl_node_28, bl_node_26, bl_node_26, bl_node_28, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_28, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_55, bl_node_52, bl_node_52, bl_node_27, bl_node_55, bl_node_55, bl_node_55, bl_node_52, bl_node_55, bl_node_55, bl_node_55, bl_node_52, bl_node_52, bl_node_52, bl_node_55, bl_node_27, bl_node_55, bl_node_55, bl_node_27, bl_node_52, bl_node_55, bl_node_52, bl_node_27, bl_node_55, bl_node_26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 13 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_26, bl_node_26, bl_node_27, bl_node_28, bl_node_26, bl_node_26, bl_node_28, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_28, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_52, bl_node_52, bl_node_52, bl_node_27, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_52, bl_node_27, bl_node_52, bl_node_52, bl_node_27, bl_node_52, bl_node_52, bl_node_52, bl_node_27, bl_node_52, bl_node_26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 14 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_26, bl_node_26, bl_node_27, bl_node_28, bl_node_26, bl_node_26, bl_node_28, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_26, bl_node_28, bl_node_28, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 15 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_26, bl_node_26, bl_node_27, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_27, bl_node_26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 16 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, bl_node_26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 #> 17 g1_1, g1_2, g1_3, g1_4, g1_5, g1_6, g1_7, g1_8, g1_9, g1_10, g1_11, g1_12, g1_13, g1_14, g1_15, g1_16, g1_17, g1_18, g1_19, g1_20, g1_21, g1_22, g1_23, g1_24, g1_25, g2_1, g2_2, g2_3, g2_4, g2_5, g2_6, g2_7, g2_8, g2_9, g2_10, g2_11, g2_12, g2_13, g2_14, g2_15, g2_16, g2_17, g2_18, g2_19, g2_20, g2_21, g2_22, g2_23, g2_24, g2_25, g3_1, g3_2, g3_3, g3_4, g3_5, g3_6, g3_7, g3_8, g3_9, g3_10, g3_11, g3_12, g3_13, g3_14, g3_15, g3_16, g3_17, g3_18, g3_19, g3_20, g3_21, g3_22, g3_23, g3_24, g3_25, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, node, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, bl_node_7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
# We can visualize the collapse results net %>% visualize_collapse_results()
# We can choose best result with default heuristic net <- choose_best_collapse_state(net, verbose = TRUE)
#> Choosing collapse with 3 blocks and an entropy of 4.3945.
# Setting sigma to a higher value means faster collapsing at the cost of less accuracy net %>% collapse_blocks(sigma = 2) %>% visualize_collapse_results()
#> Warning: Ran of merges during agglomerative merging step. Try raising num_block_proposals and/or lowering sigma.
#> Warning: Ran of merges during agglomerative merging step. Try raising num_block_proposals and/or lowering sigma.
#> Warning: Ran of merges during agglomerative merging step. Try raising num_block_proposals and/or lowering sigma.
#> Warning: Ran of merges during agglomerative merging step. Try raising num_block_proposals and/or lowering sigma.