ปรับแต่งการประมาณค่า

# Estimate the model with a new `adapt_delta`
adapt_model <- ___(popularity ~ song_age, data = songs,
  ___ = list(___ = ___))

# View summary
___(adapt_model)

# Estimate the model with a new `max_treedepth`
tree_model <- ___(popularity ~ song_age, data = songs,
  ___ = list(___ = ___))

# View summary
___(tree_model)