nootropics_aniracetam.mood.r

> aniracetam.model.mood <- lm(supplements$Mood ~ supplements$Aniracetam)
> summary(aniracetam.model.mood)

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

Residuals:
    Min      1Q  Median      3Q     Max
-1.4607 -0.2905  0.0340  0.3691  1.0391

Coefficients:
                        Estimate Std. Error t value Pr(>|t|)
(Intercept)            2.881e+00  4.354e-02  66.170   <2e-16 ***
supplements$Aniracetam 1.064e-04  6.083e-05   1.749   0.0821 .
---
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.01799,   Adjusted R-squared:  0.01211
F-statistic: 3.059 on 1 and 167 DF,  p-value: 0.08212