R/equationHtk.R

Defines functions equationHtk

equationHtk <- function(Htk, tiInd, covTerm)
## Evaluates at point 'Htk' the equation used to obtain the value of the 
## step function of the transformation model with censored data at the jump
## corresponding to the first observed failure time.
## 
## 'tiInd' is an indicator of the individuals forming the risk set and 'covTerm'
## is the scalar product of covariates with regression parameter estimates.
{
    rskVec <- exp(covTerm + Htk)
    return(sum(rskVec[tiInd]) - 1)
}

Try the gyriq package in your browser

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

gyriq documentation built on May 29, 2017, 3:52 p.m.