# NOT RUN {
data("countryGDP")
# Cluster Countries using GDP from year 2000 to year 2014
clubs <- findClubs(countryGDP, dataCols=2:35, regions = 1, refCol=35, time_trim = 1/3,
cstar = 0, HACmethod = "AQSB")
summary(clubs)
# Merge clusters
mclubs <- mergeClubs(clubs, mergeMethod='PS', mergeDivergent=FALSE)
summary(mclubs)
mclubs <- mergeClubs(clubs, mergeMethod='vLT', mergeDivergent=FALSE)
summary(mclubs)
# }
Run the code above in your browser using DataLab