Nothing
###################################################
#### 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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.