#Example hclust
dataset <- read.table("../data/C1.dat", head=TRUE)[,1:2]

#Scaling variables
dataset$x1 = scale(dataset$x1)
dataset$x2 = scale(dataset$x2)
n = nrow(dataset)

d0<- dist(dataset[1:30,])
h1<- hclust(d0, method="complete")
plot(h1, xlab="",ylab="", axes=FALSE, main="", sub="")
abline(h=2, lty=2)
abline(h=1.1, lty=2)