nootropics_piracetam_mood.r

> piracetam.model.mood <- lm(supplements$Mood ~ supplements$Piracetam)
> summary(piracetam.model.mood)

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

Residuals:
     Min       1Q   Median       3Q      Max
-1.40156 -0.23156  0.01844  0.34844  1.09844

Coefficients:
                       Estimate Std. Error t value Pr(>|t|)
(Intercept)           2.902e+00  3.864e-02  75.096   <2e-16 ***
supplements$Piracetam 6.619e-05  4.186e-05   1.581    0.116
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.4669 on 167 degrees of freedom
  (54 observations deleted due to missingness)
Multiple R-squared:  0.01475,   Adjusted R-squared:  0.008849
F-statistic:   2.5 on 1 and 167 DF,  p-value: 0.1157