nootropics_noopept_productivity_corrected.r

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

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

Residuals:
     Min       1Q   Median       3Q      Max
-1.54842 -0.44969  0.00732  0.47996  1.33340

Coefficients:
                    Estimate Std. Error t value Pr(>|t|)
(Intercept)         0.633453   0.387922   1.633 0.105018
supplements$Noopept 0.010770   0.002958   3.641 0.000398 ***
supplements$Mood    0.609507   0.124422   4.899 2.95e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.6056 on 124 degrees of freedom
  (96 observations deleted due to missingness)
Multiple R-squared:  0.2151,    Adjusted R-squared:  0.2024
F-statistic: 16.99 on 2 and 124 DF,  p-value: 3.016e-07