I am trying to use `apply()` on an array of matrices.
Here is an example:

```r
data(UCBAdmissions)
fisher.test(UCBAdmissions[,,1]) #This works great
apply(UCBAdmissions, c(1,2,3), fisher.test) #This fails

```