# NOT RUN {
# generate vector (of incomes)
x <- c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261)
# compute Atkinson coefficient with parameter=0.5
Atkinson(x, parameter=0.5)
# }
Run the code above in your browser using DataCamp Workspace