Create fairProportions.R