Import labels and add cleaned observations as 'noise'.
importLabelSample(label, data.sample, noise.cluster = "Noise")
new.labels imported labels.
vector of labels.
sample object.
character name of the cluster "Noise".
importLabelSample imports labels
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 <- KmeansQuick(x$features$initial$x, K=3)
new.labels <- importLabelSample(res$cluster, x)
Run the code above in your browser using DataLab