# illustration only - more iterations needed for convergence
set.seed(1)
fit.vmsin.step.15 <- fit_incremental_angmix("vmsin", tim8, start_ncomp = 1,
max_ncomp = 3, n.iter = 15,
n.chains = 1,
crit = "WAIC")
fit.vmsin.best.15 <- bestmodel(fit.vmsin.step.15)
fit.vmsin.best.15
crit.best <- bestcriterion(fit.vmsin.step.15)
crit.best
Run the code above in your browser using DataLab