R/ptpxg.R

Defines functions ptpxg

Documented in ptpxg

ptpxg <- function(x, alpha = 1, theta = 1) {
  1 - ( ( ( alpha + theta + alpha * theta * x + (alpha * theta^2 * x^2 / 2) ) ) / (alpha + theta) ) * exp(-theta * x)
}

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.