Analysis
targetyear
[1] "2017 est."
colnames(countrydata)
[1] "GDP - real growth rate(%)" "Gross national saving(% of GDP)" "Industrial production growth rate(%)" "Unemployment rate(%)" "Taxes and other revenues(% (of GDP))" "Budget surplus (+) or deficit (-)(% (of GDP))"
[7] "Public debt(% of GDP)" "Inflation rate (consumer prices)(%)" "Electricity - from nuclear fuels(% of total installed capacity)" "Electricity - from hydroelectric plants(% of total installed capacity)" "Electricity - from other renewable sources(% of total installed capacity)"
length(colnames(countrydata))
[1] 11
row.names(countrydata)
[1] "Algeria" "Argentina" "Australia" "Azerbaijan" "Bangladesh" "Belgium" "Bolivia" "Brazil" "Burma" "Cambodia" "Canada" "Chile" "China" "Colombia" "Cuba" "Czechia" "Dominican Republic" "Ecuador" "Egypt" "France" "Germany" "Greece" "Guatemala"
[24] "Guinea" "India" "Indonesia" "Iran" "Italy" "Japan" "Jordan" "Kazakhstan" "Korea, South" "Madagascar" "Malaysia" "Mali" "Mexico" "Morocco" "Mozambique" "Nepal" "Netherlands" "Niger" "Nigeria" "Pakistan" "Peru" "Philippines" "Poland"
[47] "Portugal" "Romania" "Russia" "Saudi Arabia" "South Africa" "Spain" "Sri Lanka" "Sudan" "Sweden" "Taiwan" "Thailand" "Tunisia" "Turkey" "Ukraine" "United Kingdom" "United States" "Uzbekistan" "Venezuela" "Vietnam"
length(row.names(countrydata))
[1] 65
distance <- dist(countrydata)
methodlist <- c("ward.D", "ward.D2", "single", "complete", "average", "mcquitty", "median", "centroid")