if (FALSE) {
project <- getMLXdir()
ObsModel.transfo = list(S=list(AB=log10),
linkS="yAB",
R=rep(list(S=function(x){x}),5),
linkR = paste0("yG",1:5))
alpha=list(alpha0=NULL,
alpha1=setNames(paste0("alpha_1",1:5),paste0("yG",1:5)))
init <- initStrat(project,alpha,ObsModel.transfo,seed=1710)
plotInit(init)
}
Run the code above in your browser using DataLab