#++++ Initialization using a heuristic method ++++#
set.seed(1234)
init <- initialize_clusters(iris[1:4], G = 3)
init <- initialize_clusters(iris[1:4], G = 3, init_method = 'kmeans')
init <- initialize_clusters(iris[1:4], G = 3, init_method = 'hierarchical')
#++++ Initialization using user-defined labels ++++#
init <- initialize_clusters(iris[1:4], G = 3, init_method = 'manual',
clusters = as.numeric(iris$Species))
#++++ Initial parameters and pairwise scatterplot showing the mapping ++++#
init$pi
init$mu
init$Sigma
init$clusters
pairs(iris[1:4], col = init$clusters, pch = 16)
Run the code above in your browser using DataLab