# Example 1
# Unweighted average of Member States for cluster "EU12":
myAC1<-average_clust(emp_20_64_MS,timeName = "time",cluster = "EU12")
# Visualize results for Italy:
myAC1$res[,c(1,17)]
# Visualize results for the first five member states:
myAC1$res[,c(1:6)]
# Example 2
# Unweighted average of Member States for cluster "EU25":
myAC2<-average_clust(emp_20_64_MS,timeName = "time",cluster = "EU25")
# Visualize results for France:
myAC2$res[,c(1,13)]
# Visualize results for the first six member states:
myAC2$res[,c(1:7)]
# Example 3
# Unweighted average of countries for cluster "EU27":
myAC<-average_clust(emp_20_64_MS,timeName = "time",cluster = "EU27")
# Visualize results for Germany:
myAC$res[,c(1,7)]
# Visualize results for the first five member states:
myAC$res[,c(1:6)]
Run the code above in your browser using DataLab