Trying to get a Bayes Factor from an rstanarm glm

[bgoodri]

That should be

Discount_TP_model <- stan_glm(
  Accept_Reject ~ Discount + TP, ...

However, Bayes factors are not well-defined with improper priors (on the intercept).