lam <- c(0.7, 0.7, 0.7, 0.7, 0.7, 0.7)
