# \donttest{
N <- 500
K <- 4
P <- 10
X <- generateSimulationDataset(K, N, P)
Y <- generateSimulationDataset(K, N, P)
Z <- generateSimulationDataset(K, N, P)
row.names(Z$data) <- row.names(Y$data) <- row.names(X$data)
data_modelled <- list(X$data, Y$data, Z$data)
V <- length(data_modelled)
# This R is much too low for real applications
R <- 1000
thin <- 100
K_max <- 50
K <- rep(K_max, V)
types <- rep("G", V)
n_chains <- 500
mcmc_lst <- runMCMCChains(data_modelled, n_chains, R, thin, types, K = K)
cc <- compileConsensusClustering(mcmc_lst)
# }
Run the code above in your browser using DataLab