The function `algo.glrnb` in the R-Package `surveillance`