R/ptppxg.R

Defines functions ptppxg

Documented in ptppxg

ptppxg <- function(x, alpha = 1, theta = 1) {
  part1 <- 1 / ( 2 * (alpha + theta) * (1 + theta)^(x + 3) )
  part2 <- (x^2 + 5 * x + 6) * alpha * theta^2 + 2 * (x + 3) * alpha * theta + 2 * theta * (1 + theta)^2 + 2 * alpha
  1 - part1 * part2
}

Try the TPXG package in your browser

Any scripts or data that you put into this service are public.

TPXG documentation built on April 3, 2025, 10:37 p.m.