noopept_mood.r

> noopept.model.mood <- lm(supplements$Mood ~ supplements$Noopept)
> summary(noopept.model.mood)

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

Residuals:
     Min       1Q   Median       3Q      Max
-1.42815 -0.25342  0.07185  0.32658  1.07548

Coefficients:
                      Estimate Std. Error t value Pr(>|t|)
(Intercept)          2.9281519  0.0603221  48.542   <2e-16 ***
supplements$Noopept -0.0001577  0.0018708  -0.084    0.933
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.4704 on 167 degrees of freedom
  (54 observations deleted due to missingness)
Multiple R-squared:  4.256e-05, Adjusted R-squared:  -0.005945
F-statistic: 0.007108 on 1 and 167 DF,  p-value: 0.9329