# \donttest{
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))
tf1 <- tempfile()
write.table(dat, tf1, sep=",", dec=".")
x <- importSample(file.features=tf1)
new.protos <- visualizeSampleClustering(x, selection.mode = "prototypes",
profile.mode="none", wait.close=FALSE)
x <- updateClustersNames(x, new.protos$prototypes)
# }
Run the code above in your browser using DataLab