TABLE OF CONTENTS

MetropolisHastings/mh.frailty.param [ Functions ]

NAME

    mh.frailty.param --- MH for frailty parametric component parameters

FUNCTION

Metropolis-Hastings steps for parametric component parameters for frailty

SYNOPSIS

2763 mh.frailty.param <- function(hazard, frailty, regression)

INPUTS

    hazard     RCurve for hazard
    frailty    RCurve for frailty
    regression RRegression structure

OUTPUTS

    frailty     Rcurve with updated frailty parameters

SOURCE

2766 {
2767     if(!frailty$haspar) return(frailty)
2768     mhout <- mh(frailty$param.par, mklik.param.frail, frailty$param.candcov,
2769         frailty$param.tun, hazard = hazard, frailty = frailty, regression = regression)
2770     if(mhout$acc) frailty <- updateparametric(frailty, mhout$par)
2771     frailty$param.accept <- mhout$acc
2772     return(frailty)
2773 }