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)
res_new <- KmeansQuick(x$features$initial$x, K=3)
labels_new <- formatLabelSample(res_new$cluster, x)
cluster.summary.new <- clusterSummary(x, labels_new)
x$clustering <- addClustering(clustering=x$clustering, new.clustering.name='clusterin_test',
new.cluster.summary=cluster.summary.new, new.label=labels_new)
Run the code above in your browser using DataLab