Adnormal Conversation Starters
Find the survey at adnormal questions survey
bayes_lm <- brms::brm(
rating ~ q, # Both fixed and random effects
data = survey_tidy,
prior = c(
prior(normal(3.5, .5), class = Intercept),
prior(normal(0, 0.2), class = b), # Small random effect
prior(exponential(1), class = sigma)
),
chains = 4, iter = 2000, cores = 4,
backend = "cmdstanr", silent = 2,
file = "lm.1"
)
Call:
lm(formula = rating ~ q, data = survey_tidy)
Residuals:
Min 1Q Median 3Q Max
-2.91667 -0.75000 0.08333 1.00000 2.25000
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.667e+00 3.431e-01 10.688 <2e-16 ***
qAI_morals -6.667e-01 4.852e-01 -1.374 0.1712
qBad_hot_actors -3.333e-01 4.852e-01 -0.687 0.4930
qDreams 9.167e-01 4.852e-01 1.889 0.0605 .
qEmotional_iq 2.500e-01 4.852e-01 0.515 0.6070
qFuture_charity 9.697e-16 4.852e-01 0.000 1.0000
qGuys_intimidated 8.333e-02 4.852e-01 0.172 0.8638
qHuman_takeover -2.500e-01 4.852e-01 -0.515 0.6070
qInsurance -9.167e-01 4.852e-01 -1.889 0.0605 .
qKorean_bias 5.000e-01 4.852e-01 1.031 0.3042
qLaughter -7.500e-01 4.852e-01 -1.546 0.1239
qNurture_vs_nature -9.167e-01 4.852e-01 -1.889 0.0605 .
qPeacocks 1.738e-15 4.852e-01 0.000 1.0000
qPools 2.500e-01 4.852e-01 0.515 0.6070
qPoor_entrepreneurs -8.333e-02 4.852e-01 -0.172 0.8638
qWar_vs_disease 3.333e-01 4.852e-01 0.687 0.4930
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 1.188 on 176 degrees of freedom
Multiple R-squared: 0.1634, Adjusted R-squared: 0.09205
F-statistic: 2.291 on 15 and 176 DF, p-value: 0.005459See the GitHub source here.