if (FALSE) {
testmodel <- ctstantestfit$ctstanmodelbase
testmodel$pars$TI1_effect <- NULL
testmodel$n.TIpred <- 0
testmodel$TIpredNames <- NULL
testfit <- ctFitAutoGroupModel(testmodel,
dat = ctstantestdat, cores=2, DRIFT = TRUE, DIFFUSION = TRUE)
ctModelLatex(testfit$groupModel)
lapply(testfit$fits,function(x) print(ctStanContinuousPars(x)$DRIFT))
}
Run the code above in your browser using DataLab