airbnb_model_2 <- stan_glmer( log(price) ~ walk_score + bedrooms + rating + room_type + (1 | neighborhood), data = airbnb, family = gaussian, chains = 4, iter = 5000*2, seed = 84735 )