Какой самый быстрый способ применить t.test к каждому столбцу большой матрицы?

Предположим, у меня есть большая матрица:

M <- matrix(rnorm(1e7),nrow=20)

Далее предположим, что каждый столбец представляет выборку. Скажем, я хотел бы применить t.test()к каждому столбцу, есть ли способ сделать это намного быстрее, чем использование apply()?

apply(M, 2, t.test)

Анализ на моем компьютере занял чуть меньше 2 минут:

> system.time(invisible( apply(M, 2, t.test)))
user  system elapsed 
113.513   0.663 113.519