popN0 <- c(50, 25, 10)
popN0