data('m_psych_embeds')
m_psych_embeds = m_psych_embeds[1:200, 1:20]
df_params = expand.grid(n_xi = 4:5, pts = c(5, 10), dist = 'cosine',
dim_red = 'ICA', n_dimred_comp = 5)
df_kxi = opticskxi_pipeline(m_psych_embeds, df_params,
metrics_dist = 'cosine',
n_min_clusters = 2, n_cores = 1,
metrics = c('avg.silwidth', 'dunn'))
df_kxi = ensemble_models(df_kxi, n_models = 4,
model_subsample = c(0.4, 0.6),
n_models_subsample = 4)
Run the code above in your browser using DataLab