## Default initial values for Fisher index + B-spline link:
i0 <- init_param("fisher", "bspline")
## Modify only a few initial values:
i1 <- init_param(
indexprior = "fisher",
link = "bspline",
index = c(1, 0, 0), # initial direction of the index
link_beta = rep(0, 21), # initial values for spline coefficients
sigma2 = 0.1 # initial value for sigma^2
)
## Example with GP link:
i2 <- init_param(
indexprior = "sphere",
link = "gp",
link_lengthscale = 0.2, # initial GP length-scale
link_amp = 1.5, # initial GP amplitude
sigma2 = 1 # initial variance
)
Run the code above in your browser using DataLab