nootropics_alcar_mood.r

> alcar.model.mood <- lm(supplements$Mood ~ supplements$ALCAR)
> summary(alcar.model.mood)

Call:
lm(formula = supplements$Mood ~ supplements$ALCAR)

Residuals:
    Min      1Q  Median      3Q     Max
-1.3940 -0.2403  0.0260  0.3560  1.1060

Coefficients:
                   Estimate Std. Error t value Pr(>|t|)
(Intercept)       2.894e+00  3.975e-02  72.797   <2e-16 ***
supplements$ALCAR 1.509e-04  8.612e-05   1.752   0.0816 .
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.4661 on 167 degrees of freedom
  (54 observations deleted due to missingness)
Multiple R-squared:  0.01805,   Adjusted R-squared:  0.01217
F-statistic: 3.069 on 1 and 167 DF,  p-value: 0.08161