require(lme4)
GLMM <- glmer(number_of_channels ~ activity + (1 | project), family = 'poisson') # random intercept

GLMM <- glmer(number_of_channels ~ activity + (0 + activity | project), family = 'poisson') # random slope
GLMM <- glmer(number_of_channels ~ activity + (activity | project), family = 'poisson') # both
GLMM <- glmer.nb(number_of_channels ~ activity + (1 | project)) # random intercept, negative binomial