Create party_model.R