dat <- rbind(matrix(rnorm(100, mean = 0, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 2, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 4, sd = 0.3), ncol = 2))
tf <- tempfile()
write.table(dat, tf, sep=",", dec=".")
x <- importSample(file.features=tf)
x <- computeUnSupervised(x, K=3, method.name="K-means")
label<-x[["clustering"]][["K-means_preprocessed"]][["label"]]
cluster.density <- clusterDensity(x, label, "preprocessed",features.to.keep='V1')
plotDensity2D(cluster.density, clustering.name='Test Kmeans', parH='V1')
Run the code above in your browser using DataLab