Skip to content
Snippets Groups Projects
Commit d29130e7 authored by Hanna  JULIENNE's avatar Hanna JULIENNE
Browse files

Update file make_heatmap.R

parent 3c5fa634
No related branches found
No related tags found
No related merge requests found
...@@ -23,6 +23,12 @@ setkey(trait_name, "ID") ...@@ -23,6 +23,12 @@ setkey(trait_name, "ID")
Rho = fread(correlation_file) Rho = fread(correlation_file)
setkey(Rho, "V1") 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) Pval = fread(p_file)
setkey(Pval, "V1") setkey(Pval, "V1")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment