nootropics_noopept_productivity.r

> noopept.model.productivity <- lm(supplements$Productivity ~ supplements$Noopept)
> summary(noopept.model.productivity)

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

Residuals:
    Min      1Q  Median      3Q     Max
-1.9774 -0.4661  0.0226  0.5226  1.3573

Coefficients:
                    Estimate Std. Error t value Pr(>|t|)
(Intercept)         2.466094   0.111642  22.089  < 2e-16 ***
supplements$Noopept 0.009296   0.003202   2.903  0.00437 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.6589 on 125 degrees of freedom
  (96 observations deleted due to missingness)
Multiple R-squared:  0.06317,   Adjusted R-squared:  0.05567
F-statistic: 8.429 on 1 and 125 DF,  p-value: 0.004368