poi11<-rep(NA,5)
poi12<-rep(NA,5)
poi13<-rep(NA,5)
poi14<-rep(NA,5)
poi15<-rep(NA,5)
poi16<-rep(NA,5)
poi17<-rep(NA,5)
poi18<-rep(NA,5)

poi11[1]<-ppois(0, 0.02)
poi12[1]<-ppois(0, 0.04)
poi13[1]<-ppois(0, 0.06)
poi14[1]<-ppois(0, 0.08)
poi15[1]<-ppois(0, 0.1)
poi16[1]<-ppois(0, 0.2)
poi17[1]<-ppois(0, 0.3)
poi18[1]<-ppois(0, 0.4)

for(i in 2:5) {
  poi11[i]<-ppois(i-1, 0.02)
}
for(i in 2:5) {
  poi12[i]<-ppois(i-1, 0.04)
}
for(i in 2:5) {
  poi13[i]<-ppois(i-1, 0.06)
}
for(i in 2:5) {
  poi14[i]<-ppois(i-1, 0.08)
}
for(i in 2:5) {
  poi15[i]<-ppois(i-1, 0.1)
}
for(i in 2:5) {
  poi16[i]<-ppois(i-1, 0.2)
}
for(i in 2:5) {
  poi17[i]<-ppois(i-1, 0.3)
}
for(i in 2:5) {
  poi18[i]<-ppois(i-1, 0.4)
}

round((poi<-cbind(poi11,poi12,poi13,poi14,poi15,poi16,poi17,poi18)),digits=3)