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)))
y = c(S=5,AB=1000)
res = cv.remix(project = project,
dynFUN = dynFUN_demo,
y = y,
ObsModel.transfo = ObsModel.transfo,
alpha = alpha,
selfInit = TRUE,
eps1=10**(-2),
ncores=8,
nlambda=8,
eps2=1)
res_with_test = computeFinalTest(retrieveBest(res0,criterion=BICc),
dynFUN_demo,
y,
ObsModel.transfo)
}
Run the code above in your browser using DataLab