R/standardization_AMPI_Adjusted_pos.R

In Indicator: Composite 'Indicator' Construction and Imputation Data

standardization_AMPI_Adjusted_pos = function(data){
  # Function to normalization of data with Adjusted Maziotta-Pareto index with positive sign .
  # Input :
  # 1) data : dataframe with rows = observations and columns = quantitative variables.
  # It returns:
  # 1) normalized_data : a dataframe of normalized data.
  min_max_AMPI_pos_1col = function(col){
    minimo = min(col)
    massimo = max(col)
    return(60* (1/(massimo-minimo)) *(col - minimo) + 70)
  }
  return(apply(data,2,min_max_AMPI_pos_1col))
}