# NOT RUN {
data(Hotel_Long)
rst_reshape <- rmm_reshape(data=Hotel_Long, idvar="Booking_ID",
resp="Purchase", alts="Room_Type", asv="Price", min_obs=30)
class(rst_reshape) # "rmm_data"
ls(rst_reshape) # "Alts_Code_Desc" "ASV" "asv_name" "data_wide"
# "Rem_Choice_Set" "Removed_Choice_Set"
rst_reshape$data_wide # reshaped data
# }
Run the code above in your browser using DataLab