> x <- c(1,1,13,8,39,13,42,12,51,12)
> y <- dim(2,5)
>fisher.test(x)
>chisq.test(x)
> y <- c(0,1,1,0,1,10,9,1,0,25,21,6,1,32,18,3,0,27,25,11)
>dim(y) <- c(4,5)
> fisher.test(y,hybrid=TRUE,workspace=1e6)
>chisq.test(y)