dat <- rbind(matrix(rnorm(100, mean = 2, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 4, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 6, sd = 0.3), ncol = 2))
colnames(dat) <- c("x","y")
tf <- tempfile()
write.table(dat, tf, sep=",", dec=".")
mainWindow <- tktoplevel()
tktitle(mainWindow) <- "Barplot clustering"
mainWindow$env$nb <- tk2notebook(mainWindow, tabs = c())
tkpack(mainWindow$env$nb, fill="both", expand= TRUE)
x <- importSample(file.features=tf)
method <- "K-means"
x <- computeUnSupervised(x, K=3, method.name=method)
abdPlotTabs(x$clustering, mainWindow$env$nb)
Run the code above in your browser using DataLab