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

