added the unbalnaced.R simulation function that simulated the 3 class data that is unbalanced using a 3 category logistic model