Create Multinomial.R