#encoding any point in a matrix in which columns are their coordinates
data=matrix(c(1,1,2,1,3,4,1,6,2,3,3,3,4,5,2,5),ncol=2,byrow = T)
#computing distance
d=dist(data,method="euclidean")
#kmean algorithm with k=3 and 10 iterations
kmeans(d,3,10)
#Hierarchical cluster analysis
g=hclust(d)
#ploting the dendrogram
plot(g)