lambda <- 1
alpha <- 0.4
set.seed(12345)
data <- cocoSim(order = 1, type = "Poisson", par = c(lambda, alpha), length = 100)
fit <- cocoReg(order = 1, type = "Poisson", data = data)
#PIT R implementation
pit_r <- cocoPit(fit)
plot(pit_r)
Run the code above in your browser using DataLab