params <- list(
no.cmpt = 1, mm = 0, mcorr = 1,
eta.vc = 1, eta.cl = 0, eta.vp = 1, eta.q = 1
)
applyParamDeps(params)
params2 <- list(
no.cmpt = 2, mm = 1,
eta.vmax = 0, eta.km = 0, eta.cl = 1
)
applyParamDeps(params2)
Run the code above in your browser using DataLab