larisa / gene-disease-embeddings

Go to a project
Toggle navigation Toggle navigation pinning
Roberto Olayo Alarcon
b8b5bbe5 1 parent 5469490b

update new partitions

Inline Side-by-side
Showing 1 changed file with 18 additions and 0 deletions
......@@ -66,3 +66,21 @@ print_cluster(cls4, "SentenceMembership_4clusters.txt")
####
# 5 clusters
png("Dendogram_5clusters.png", height = 600, width = 975)
plot(senclus, hang=-1)
cls5 <- rect.hclust(senclus, k=5, border = 3:4)
dev.off()
print_cluster(cls5, "SentenceMembership_5clusters.txt")
###
# 6 clusters
png("Dendogram_6clusters.png", height = 600, width = 975)
plot(senclus, hang=-1)
cls6 <- rect.hclust(senclus, k=6, border = 3:4)
dev.off()
print_cluster(cls6, "SentenceMembership_6clusters.txt")
......