# 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 and divergent regions
mclubs <- mergeClubs(clubs, mergeDivergent=TRUE)
summary(mclubs)
# }
Run the code above in your browser using DataLab