Update Supplementary_Figure_3.R

Supplementary_Figure_3.R

@@ -134,7 +134,7 @@ signifD <- function(x, d, upper, lower, eval = 0) {
 structures_12 <- paste0("data/Molti_Output/",seq(0.5,30,0.5),".csv")
 # Detect community trajectories and tree distances between each gene. 
 curie_to_12_full <- CmmD_from_community_structures(nodelist = NULL, community_structures = structures_12, resolution_start = 0.5,resolution_end = 12,interval = 0.5,distmethod = "hamming",threads = 7)
-curie_to_12_full$hamming_distance_matrix = curie_to_12_full$distance_matrix * 24 # This transformation is needed because parallel dist is weighted.
+curie_to_12_full$hamming_distance_matrix = as.matrix(curie_to_12_full$distance_matrix) * 24 # This transformation is needed because parallel dist is weighted.
 curie = curie_to_12_full
 # 24 = length(seq(0.5,12,0.5)) -> number of resolution values analyzed
 class(curie$gene_community_matrix) <- "numeric"