lam <- c(0.8, 0.8, 0.8, 0.8, 0.8, 0.8)
a <- c(0, 0, 0, 0, 0, 0, 0, 0, 0)

