The code used to simulate the data was:
set.seed(333)
frog.mu <- exp(3.5 + 0.2*(temp-mean(temp))+0.1*(ph-mean(ph)) -
0.3*(waterdepth-mean(waterdepth)) )
frog <- rpois(n, lambda=frog.mu)
For the simulation of the explanatory variables, see help file for the pondfrog data