cluster_code_for_universities.R

input <-  read.csv("/home/vijay/Documents/xcelR banglore/datasets from excelr website/Hierarchial Clustering/Universities.csv")
#mydata <- input[,c(1,3:8)]  for excel file
normalized_data <-  scale(input[,2:7])
d <- dist(normalized_data, method = "euclidean")
fit <- hclust(d, method = "complete")
plot(fit)# display dendogram

plot(fit, hang = -1)
groups <- cutree(fit, k = 3)# cut treee 3 cluster
rect.hclust(fit, k = 3, border = "red")

membership <- as.matrix(groups)
final <- data.frame(membership, input)
library(readr)
write_excel_csv(final, "hclusoutput.csv")
getwd()

## [1] "/home/vijay"