Nous revenons aux données de température des villes européennes téléchargeables à la page temperat_Europe.csv.

temperature <- read.table("temperat_Europe.csv",header=TRUE, sep=";", dec=".", row.names=1)
head(temperature)
summary(temperature)

Pour effectuer une CAH nous pouvons partir des commandes suivantes :

data <- temperature[,1:12]
n=nrow(data)
distances <- dist(data)
cah.ward <- hclust(distances,method="ward.D2")
plot(cah.ward)