# NOT RUN {
avec <- 5:6 # Alter these (special) values
ivec <- 9:10 # Inflate these (special) values
tvec <- 12:14 # Truncate these (special) values
pobs.a <- c(0.1, 0.2)
pstr.i <- (1:2) / 10
lambda <- 15; xx <- 0:22
y <- rgaitpois.mlm(1000, lambda, alter = avec, inflate = ivec,
truncate = tvec, max.support = 20,
pstr.i = pstr.i, pobs.a = pobs.a, byrow = TRUE)
table(y)
(ii <- dgaitpois.mlm(xx, lambda, alter = avec, inflate = ivec,
truncate = tvec, max.support = 20,
pstr.i = pstr.i, pobs.a = pobs.a, byrow = TRUE))
# }
Run the code above in your browser using DataLab