Create  inequality.Sim1.R