From d29130e72c67c03cbad5802f867379fde080a61a Mon Sep 17 00:00:00 2001
From: Hanna  JULIENNE <hanna.julienne@pasteur.fr>
Date: Tue, 16 Jul 2024 15:23:19 +0200
Subject: [PATCH] Update file make_heatmap.R

---
 bin/make_heatmap.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/bin/make_heatmap.R b/bin/make_heatmap.R
index f76d419..4f4eb60 100644
--- a/bin/make_heatmap.R
+++ b/bin/make_heatmap.R
@@ -23,6 +23,12 @@ setkey(trait_name, "ID")
 Rho = fread(correlation_file)
 setkey(Rho, "V1")
 
+D = as.matrix(1-Rho[,-1])
+D[is.na(D)] = 0
+h = hclust(as.dist(D))
+order_trait <- trait_name$ID[h$order]
+
+
 Pval = fread(p_file)
 setkey(Pval, "V1")
 
-- 
GitLab