## LPP -
# Load Swiss Pension Fund Data:
LPP <- LPP2005REC
colnames(LPP)
## assetsSelect -
# Hierarchical Clustering:
hclust <- assetsSelect(LPP, "hclust")
plot(hclust)
## assetsSelect -
# kmeans Clustering:
assetsSelect(LPP, "kmeans", control =
c(centers = 3, algorithm = "Hartigan-Wong"))
Run the code above in your browser using DataLab