From 1ff0978488dc8f483802ae458370e91e7d8aff8d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=98ystein=20S=C3=B8rensen?= Date: Tue, 5 Dec 2023 14:03:05 +0100 Subject: [PATCH] fixing long running example issue --- inst/examples/compute_mallows_mixtures_example.R | 6 +++--- man/compute_mallows_mixtures.Rd | 6 +++--- man/plot_elbow.Rd | 6 +++--- 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/inst/examples/compute_mallows_mixtures_example.R b/inst/examples/compute_mallows_mixtures_example.R index fa4a3fb5..df7c0348 100644 --- a/inst/examples/compute_mallows_mixtures_example.R +++ b/inst/examples/compute_mallows_mixtures_example.R @@ -3,9 +3,9 @@ set.seed(1) n_clusters <- seq(from = 1, to = 5) models <- compute_mallows_mixtures( n_clusters = n_clusters, data = setup_rank_data(cluster_data), - compute_options = set_compute_options(nmc = 10000, include_wcd = TRUE)) + compute_options = set_compute_options(nmc = 2000, include_wcd = TRUE)) -# There is good convergence for 1, 2, and 3 cluster, but not for 4 or 5. +# There is good convergence for 1, 2, and 3 cluster, but not for 5. # Also note that there seems to be label switching around the 7000th iteration # for the 2-cluster solution. assess_convergence(models) @@ -17,7 +17,7 @@ plot_elbow(models, burnin = 1000) mixture_model <- compute_mallows( data = setup_rank_data(cluster_data), model_options = set_model_options(n_clusters = 3), - compute_options = set_compute_options(nmc = 5000)) + compute_options = set_compute_options(nmc = 2000)) # The trace plot for this model looks good. It seems to converge quickly. assess_convergence(mixture_model) diff --git a/man/compute_mallows_mixtures.Rd b/man/compute_mallows_mixtures.Rd index 072873be..1a0eaa7c 100644 --- a/man/compute_mallows_mixtures.Rd +++ b/man/compute_mallows_mixtures.Rd @@ -70,9 +70,9 @@ set.seed(1) n_clusters <- seq(from = 1, to = 5) models <- compute_mallows_mixtures( n_clusters = n_clusters, data = setup_rank_data(cluster_data), - compute_options = set_compute_options(nmc = 10000, include_wcd = TRUE)) + compute_options = set_compute_options(nmc = 2000, include_wcd = TRUE)) -# There is good convergence for 1, 2, and 3 cluster, but not for 4 or 5. +# There is good convergence for 1, 2, and 3 cluster, but not for 5. # Also note that there seems to be label switching around the 7000th iteration # for the 2-cluster solution. assess_convergence(models) @@ -84,7 +84,7 @@ plot_elbow(models, burnin = 1000) mixture_model <- compute_mallows( data = setup_rank_data(cluster_data), model_options = set_model_options(n_clusters = 3), - compute_options = set_compute_options(nmc = 5000)) + compute_options = set_compute_options(nmc = 2000)) # The trace plot for this model looks good. It seems to converge quickly. assess_convergence(mixture_model) diff --git a/man/plot_elbow.Rd b/man/plot_elbow.Rd index 2280d021..1a65192a 100644 --- a/man/plot_elbow.Rd +++ b/man/plot_elbow.Rd @@ -32,9 +32,9 @@ set.seed(1) n_clusters <- seq(from = 1, to = 5) models <- compute_mallows_mixtures( n_clusters = n_clusters, data = setup_rank_data(cluster_data), - compute_options = set_compute_options(nmc = 10000, include_wcd = TRUE)) + compute_options = set_compute_options(nmc = 2000, include_wcd = TRUE)) -# There is good convergence for 1, 2, and 3 cluster, but not for 4 or 5. +# There is good convergence for 1, 2, and 3 cluster, but not for 5. # Also note that there seems to be label switching around the 7000th iteration # for the 2-cluster solution. assess_convergence(models) @@ -46,7 +46,7 @@ plot_elbow(models, burnin = 1000) mixture_model <- compute_mallows( data = setup_rank_data(cluster_data), model_options = set_model_options(n_clusters = 3), - compute_options = set_compute_options(nmc = 5000)) + compute_options = set_compute_options(nmc = 2000)) # The trace plot for this model looks good. It seems to converge quickly. assess_convergence(mixture_model)