TABLE OF CONTENTS

makeLikelihood/mklik.param.frail [ Functions ]

NAME

    mklik.param.frail --- likelihood of parametric component for frailty

FUNCTION

Compute loglikelihood of parametric component parameters for the frailty curve

SYNOPSIS

2456 mklik.param.frail <- function(param.par, hazard, frailty, regression)

INPUTS

    param.par  a vector of parameters for each of the parametric component
    hazard     RCurve for hazard
    frailty    RCurve for frailty
    regression RRegression structure

OUTPUTS

    lik        loglikelihood of param.par

SOURCE

2459 {
2460     if(!frailty$haspar) return(0)
2461     frailty <- updateparametric(frailty, param.par)
2462     lik <- sum(log(frailty$y)) - sum(param.par^2) / (2 * frailty$param.priorvar)
2463     return(lik)
2464 }