nootropics_choline_mood.r

> cholinebitartate.model.mood <- lm(supplements$Mood ~ supplements$Choline.bitartrate)
> summary(cholinebitartate.model.mood)

Call:
lm(formula = supplements$Mood ~ supplements$Choline.bitartrate)

Residuals:
     Min       1Q   Median       3Q      Max
-1.38429 -0.25429  0.03571  0.32290  1.11571

Coefficients:
                                Estimate Std. Error t value Pr(>|t|)
(Intercept)                    2.884e+00  4.229e-02  68.196   <2e-16 ***
supplements$Choline.bitartrate 1.223e-04  6.898e-05   1.773   0.0781 .
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.466 on 167 degrees of freedom
  (54 observations deleted due to missingness)
Multiple R-squared:  0.01847,   Adjusted R-squared:  0.0126
F-statistic: 3.143 on 1 and 167 DF,  p-value: 0.07808