R/mp8.ll.R

Defines functions mp8.ll

Documented in mp8.ll

mp8.ll <-
function(theta, nrisk, ndeath, age = c(1e-05, 1, seq(5, 85, 5))) 
{
    lx <- nrisk
    dx <- ndeath
    p.hat <- mod8p(theta = theta, x = age)
    ll <- ll.binom(x = dx, n = lx, p = p.hat)
    return(ll)
}

Try the HPbayes package in your browser

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

HPbayes documentation built on May 2, 2019, 5:53 a.m.