Considere um modelo de obstáculos que prevê dados de contagem yde um preditor normal x: set.seed(1839) # simulate poisson with many zeros x <- rnorm(100) e <- rnorm(100) y <- rpois(100, exp(-1.5 + x + e)) # how many zeroes? table(y == 0) FALSE TRUE 31 69 Nesse caso, tenho dados de...