set.seed(123)
X <- matrix(rnorm(100 * 3), 100, 3)
beta <- c(0.5, -0.2, 0.1)
# Poisson
y_pois <- rpois(100, lambda = exp(X %*% beta))
ll_pois <- dglm_likelihood(y_pois, X, beta, family = "poisson")
# Gamma
y_gamma <- rgamma(100, shape = 3, rate = exp(X %*% beta))
ll_gamma <- dglm_likelihood(y_gamma, X, beta, family = "gamma", alpha_gamma = 3)
Run the code above in your browser using DataLab