## default search using BIC score
model <- search_best(Titanic, alg = stages_kmeans)
## use df as search_criterion
model1 <- search_best(Titanic, alg = stages_bhc,
search_criterion = function(m) attr(logLik(m), "df"))
Run the code above in your browser using DataLab