Adapted from 'trip_departure_decision_glmer_examples.R', to show how to get R2 values for models
Added R-square calculation