## Not run:
# x1 <- matrix(rnorm(2*200), ncol=2)
# x2 <- matrix(rnorm(2*200,2,1),ncol=2)
# x <- rbind(x1,x2)
# k <- 2
# cl <- cluster_em(x,k,"rcm")
# mean <- cl$mean
# covariance <- cl$sigma
# cluster_plot(x,mean,covariance)
# ## End(Not run)
Run the code above in your browser using DataLab