update new partitions

@@ -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")
+