How to estimate the probability of the type I error for the Bonferroni and Fisher tests in R?

Question

I have the sample of 100 from Poisson distribution. I have 1000 of similar hypothesis and the meta problem of testing the global hypothesis

$$\\bigCap H_{0i}: E(X_i)