data("Education")
Indicator=geometric_aggregation(Education)
print(Indicator)
#-----When there are negative values
set.seed(123)
Data=matrix(rnorm(100),nrow = 10,ncol = 10)
Indicator=geometric_aggregation(Data,geo_wo = 100)
print(Indicator)
Run the code above in your browser using DataLab