Compute Awarded economic value across the crisis indicator

The indicator focuses on companies that after the emergency outbreak have been awarded public contracts in the relevant economic market with higher economic value than before the emergency occurred.

Motivation

The red flag considers at risk those companies that exceptionally increase their competitive power over the outbreak, in terms of economic value of their awarded contracts on the relevant economic market.

Scoring rule

The computation procedure returns 1 - p-value of the involved test (so that high values of the indicator correspond to high levels of corruption risk). When computing the composite, it will be dichotomised to 1 if statistical test is significant, and 0 otherwise (see normalise()).

Main target unit

This indicator targets companies.

Usage

ind_2(
  data,
  contract_value,
  publication_date,
  emergency_name,
  stat_unit,
  test_type,
  cpvs,
  ...
)

Arguments

data

a dataframe containing the data to use for computing the indicator.

contract_value

name of the variable in data containing the economic amount of each contract.

publication_date

name of the variable in data containing the publication date of each contract.

emergency_name

string specifying the name of the emergency to consider. Examples could include "Coronavirus" or "Terremoto Centro Italia 2016-2017".

stat_unit

name of the variable in data containing the target unit ID (in this case, the company).

test_type

string specifying the statistical test to use for computing the indicator. Available options are "wilcoxon" and "ks" (Kolmogorov-Smirnov test).

cpvs

character vector of CPV divisions (first two digits of CPV code) on which data are filtered out. Note: a panel of experts have already chosen which CPV divisions are most affected by which emergency.

...

other parameters to pass to generate_indicator_schema(), such as country_name (default: Italy).

Value

indicator schema as from generate_indicator_schema().

See also

ymd mutate, if_else, group_by, filter, summarise str_sub nest, drop_na

Examples

if (FALSE) {
if (interactive()) {
  mock_data_core <- mock_data_core |>
    tidyr::unnest(aggiudicatari, keep_empty = TRUE)
  ind_2(
    data = mock_data_core,
    contract_value = importo_lotto,
    publication_date = data_pubblicazione,
    stat_unit = codice_fiscale,
    test_type = "wilcoxon",
    emergency_name = "coronavirus"
  )
}
}