set.seed(42)
X = cbind(rnorm(60), rnorm(60))
Y = cbind(rnorm(60), rnorm(60))
K = 2
fit <- CemCO(X, Y, K, max_iter=10, n_start=1, cores=1)
params <- fit[[1]] ## fitted parameters
ll <- fit[[2]] ## log likelihood
Run the code above in your browser using DataLab