TABLE OF CONTENTS

MetropolisHastings/mh.hazard.param [ Functions ]

NAME

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

FUNCTION

Metropolis-Hastings steps for parametric component parameters for hazard

SYNOPSIS

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

INPUTS

    hazard     RCurve for hazard
    frailty    RCurve for frailty
    regression RRegression structure

OUTPUTS

    hazard     Rcurve with updated hazard parameters

SOURCE

2791 {
2792     if(!hazard$haspar) return(hazard)
2793     mhout <- mh(hazard$param.par, mklik.param.haz, hazard$param.candcov, hazard$param.tun,
2794         hazard = hazard, frailty = frailty, regression = regression)
2795     if(mhout$acc) hazard <- updateparametric(hazard, mhout$par)
2796     hazard$param.accept <- mhout$acc
2797     return(hazard)
2798 }