**blogR**, and kindly contributed to R-bloggers)

@drsimonj here to share my code for using Welch’s *t*-test to compare group means using summary statistics.

## ?Motivation

I’ve just started working with A/B tests that use big data. Where once I’d whimsically run `t.test()`

, now my data won’t fit into memory!

I’m sharing my solution here in the hope that it might help others.

## ?In-memory data

As a baseline, let’s start with an in-memory case by comparing whether automatic and manual cars have different Miles Per Gallon ratings on average (using the `mtcars`

data set).

```
t.test(mpg ~ am, data = mtcars)
#>
#> Welch Two Sample t-test
#>
#> data: mpg by am
#> t = -3.7671, df = 18.332, p-value = 0.001374
#> alternative hypothesis: true difference in means is not equal to 0
#> 95 percent confidence interval:
#> -11.280194 -3.209684
#> sample estimates:
#> mean in group 0 mean in group 1
#> 17.14737 24.39231
```

Well… that was easy!

## ?Big Data

The problem with big data is that we can’t pull it into memory and work with R.

Fortunately, we don’t need the raw data to run Welch’s *t*-test. All we need is the mean, variance, and sample size of each group. So our raw data might have billions of rows, but we only need six numbers.

Here are the numbers we need for the previous example:

```
library(dplyr)
grp_summary <- mtcars %>%
group_by(am) %>%
summarise(
mpg_mean = mean(mpg),
mpg_var = var(mpg),
n = n()
)
grp_summary
#> # A tibble: 2 x 4
#> am mpg_mean mpg_var n
#>
```
#> 1 0 17.14737 14.69930 19
#> 2 1 24.39231 38.02577 13

This is everything we need to obtain a *t* value, degrees of freedom, and a *p* value.

### ?*t* value

Here we use the means, varianes, and sample sizes to compute Welch’s *t*:

```
welch_t <- diff(grp_summary$mpg_mean) / sqrt(sum(grp_summary$mpg_var/grp_summary$n))
cat("Welch's t value of the mean difference is", welch_t)
#> Welch's t value of the mean difference is 3.767123
```

This is the same value returned by `t.test()`

, apart from the sign (which is unimportant).

### ?Degrees of Freedom

Here, we use the variances and sample sizes to compute the degrees of freedom, which is estimated by the Welch–Satterthwaite equation:

```
welch_df <- ((sum(grp_summary$mpg_var/grp_summary$n))^2) /
sum(grp_summary$mpg_var^2/(grp_summary$n^2 * (grp_summary$n - 1)))
cat("Degrees of Freedom for Welch's t is", welch_df)
#> Degrees of Freedom for Welch's t is 18.33225
```

Again, same as `t.test()`

.

### ?*p* value

We can now calculate the *p* value thanks to R’s `pt()`

. Assuming we want to conduct a two-tailed test, here’s what we need to do:

```
welch_p <- 2 * pt(abs(welch_t), welch_df, lower.tail = FALSE)
cat("p-value for Welch's t is", welch_p)
#> p-value for Welch's t is 0.001373638
```

Same as `t.test()`

again!

## ?All-in-one Function

Now we know the math, let’s write a function that takes 2-element vectors of means, variances, and sample sizes, and returns the results in a data frame:

```
welch_t_test <- function(sample_means, sample_vars, sample_ns) {
t_val <- diff(sample_means) / sqrt(sum(sample_vars/sample_ns))
df <- ((sum(sample_vars/sample_ns))^2) /
sum(sample_vars^2/(sample_ns^2 * (sample_ns - 1)))
p_val <- 2 * pt(abs(t_val), df, lower.tail = FALSE)
data.frame(t_val = t_val,
df = df,
p_val = p_val)
}
```

```
welch_t_test(grp_summary$mpg_mean,
grp_summary$mpg_var,
grp_summary$n)
#> t_val df p_val
#> 1 3.767123 18.33225 0.001373638
```

Excellent!

## ?Back to Big Data

The point of all this was to help me conduct an A/B test with big data. Has it?

Of course! I don’t pull billions of rows from my data base into memory. Instead, I create a table of the summary statistics within my big data ecosystem. These are easy to pull into memory.

How you create this summary table will vary depending on your setup, but here’s a mock Hive/SQL query to demonstrate the idea:

```
CREATE TABLE summary_tbl AS
SELECT
group_var
, AVG(outcome) AS outcome_mean
, VARIANCE(outcome) AS outcome_variance
, COUNT(*) AS n
FROM
raw_tbl
GROUP BY
group_var
```

Happy testing!

## ?Sign off

Thanks for reading and I hope this was useful for you.

For updates of recent blog posts, follow @drsimonj on Twitter, or email me at [email protected] to get in touch.

If you’d like the code that produced this blog, check out the blogR GitHub repository.

**leave a comment**for the author, please follow the link and comment on their blog:

**blogR**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...