R/dtppxg.R

Defines functions dtppxg

Documented in dtppxg

dtppxg <- function(x, alpha = 1, theta = 1) {
  part1 <- theta^2 / ((alpha + theta) * (1 + theta)^(x + 3))
  part2 <- (1 + theta)^2 + alpha * theta * (x + 1) * (x + 2) / 2
  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.