R/bayessurvreg3.priorInit.R

In bayesSurv: Bayesian Survival Regression with Flexible Error and Random Effects Distributions

###################################################
#### AUTHOR:     Arnost Komarek                ####
####             (2005)                        ####
####                                           ####
#### FILE:       bayessurvreg3.priorInit.R     ####
####                                           ####
#### FUNCTIONS:  bayessurvreg3.priorInit       ####
###################################################

### ======================================
### bayessurvreg3.priorInit
### ======================================
## Subsection of bayessurvreg3
## -> just to make it more readable
##
## 01/02/2005
##
## REMARK: both design$Y and design2$Y contain not-transformed times (i.e. t and not y)
##
bayessurvreg3.priorInit <- function(prior, init, design, mcmc.par, prior2, init2, design2, mcmc.par2, doubly)
{
  return(bayesBisurvreg.priorInit(dim = 1, prior  = prior,  init  = init,  design  = design,  mcmc.par  = mcmc.par,
                                           prior2 = prior2, init2 = init2, design2 = design2, mcmc.par2 = mcmc.par2, doubly = doubly))
}