R/allcausehr.R

In simMSM: Simulation of Event Histories for Multi-State Models

allcausehr <- Vectorize(function(t, all.bhr, eta.ij, x.i, pme){
    res <- 0
    p <- length(eta.ij)
    for(hi in 1:p){
        res <- res + hr(bhr = all.bhr[[hi]], t = t, 
                        eta.ij = eta.ij[[hi]], x.i = x.i) * pme[hi]
    }
    return(res)}, "t")