# NOT RUN {
set.seed(2018)
data_check <-data.frame(
group <-round(abs(rnorm(500)*10),0) %% 2,
cat_multi_1 <-round(abs(rnorm(500)*10),0) %% 3)
my.fisher(table(data_check$cat_multi_1, data_check$group))
# }
Run the code above in your browser using DataLab