powered by
atkinson(x, epsilon = 1)
ineq
x <- c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261) atkinson(x)
Run the code above in your browser using DataLab