View source: R/inequalityMeasure.R
| CEO_to_Worker | R Documentation |
CEO-to-Worker Pay Ratio - it is a pay ratio between CEO pay and median employee pay.
CEO_to_Worker(X, W = rep(1, length(X)))
X |
is a data vector |
W |
is a vector of weights |
CEO-to-Worker Pay Ratio is generalized to any numeric data vector by the following formula:
CEO_to_Worker =\frac{H}{L}
where H is the maximum value and
L is the median value.
Since 2018, U.S. publicly held corporations have had to annually report
the ratio between their CEO and median worker compensation.
The value of maximum-to-median ratio, in particular: CEO-to-Worker Pay Ratio for salary data.
# Simple example for fake salary data
X=seq.int(5000,15000,1000)
W=11:1
CEO_to_Worker(X,W)
data(Tourism)
# Max-to-median (CEO_to_Worker) for total expenditure with sample weights
X=Tourism$Total_expenditure
W=Tourism$Sample_weight
CEO_to_Worker(X,W)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.