AverageLinkage

Average Linkage clustering of the nutirent data

require(flexclust)

## Loading required package: flexclust

## Loading required package: grid

## Loading required package: lattice

## Loading required package: modeltools

## Loading required package: stats4

data(nutrient)
row.names(nutrient) <- tolower(row.names(nutrient))
nutrient.scaled <- scale(nutrient)
d <- dist(nutrient.scaled)
fit.average <- hclust(d,method="average")
plot(fit.average,hang=-1, cex=.8, main="Average Linkage Clustering")