# Simulate data
data <- rpoisBCD(n = 50, lambda1 = 3, lambda2 = 5, lambda3 = 1)
result <- MLEpoisBCD(data)
print(result)
data(eplSeasonGoals)
MLEpoisBCD(eplSeasonGoals[["1819"]])
data(lensfaults)
MLEpoisBCD(lensfaults)
Run the code above in your browser using DataLab