# NOT RUN {
# If x and y are integer numbers:
pbivgeo(x = 1, y = 2, theta = c(0.2, 0.4, 0.7), lower.tail = TRUE)
# [1] 0.79728
# If x is a matrix:
matr <- matrix(c(1,2,3,5), ncol = 2)
pbivgeo(x = matr, y = NULL, theta = c(0.2,0.4,0.7), lower.tail = TRUE)
# [1] 0.8424384 0.9787478
# If lower.tail = FALSE:
pbivgeo(x = 1, y = 2, theta = c(0.2, 0.4, 0.7), lower.tail = FALSE)
# [1] 0.01568
matr <- matrix(c(1,2,3,5), ncol = 2)
pbivgeo(x = matr, y = NULL, theta = c(0.9,0.4,0.7), lower.tail = FALSE)
# [1] 0.01975680 0.00139404
# }
Run the code above in your browser using DataLab