# NOT RUN {
data(Hotel_Long)
# Before using the rmm function, the user must first use the rmm_shape function.
rst_reshape <- rmm_reshape(data=Hotel_Long, idvar="Booking_ID", alts="Room_Type",
asv="Price", resp="Purchase", min_obs=30)
# Fitting a model
rst_rmm <- rmm(rst_reshape, prop=0.7, model="cl")
print(rst_rmm)
# }
Run the code above in your browser using DataLab