Shower temp vs. brain speed

> t.test(t1$rt, t2$rt)

        Welch Two Sample t-test

data:  t1$rt and t2$rt
t = 2.1511, df = 41.295, p-value = 0.03737
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
  0.385243 12.170217
sample estimates:
mean of x mean of y
 549.1340  542.8563

> summary(lm(t1$rt ~ t1$X))

Call:
lm(formula = t1$rt ~ t1$X)

Residuals:
    Min      1Q  Median      3Q     Max
-10.759  -3.166  -1.320   2.319  18.927

Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept) 538.8216     3.5192 153.110  < 2e-16 ***
t1$X          0.9821     0.2938   3.343  0.00362 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 7.576 on 18 degrees of freedom
Multiple R-squared: 0.3831,     Adjusted R-squared: 0.3488
F-statistic: 11.18 on 1 and 18 DF,  p-value: 0.003619

> summary(lm(t2$rt ~ t2$X))

Call:
lm(formula = t2$rt ~ t2$X)

Residuals:
     Min       1Q   Median       3Q      Max
-16.9757  -2.8727   0.4464   4.1013   9.0075

Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept) 580.9219     5.4927 105.763  < 2e-16 ***
t2$X         -1.1713     0.1653  -7.086 4.16e-07 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 5.606 on 22 degrees of freedom
Multiple R-squared: 0.6953,     Adjusted R-squared: 0.6815
F-statistic: 50.21 on 1 and 22 DF,  p-value: 4.162e-07