Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: bf0ab3421b
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (12 sloc) 0.5 kb
data <- read.csv("output.tsv", sep = "\t")
names(data) <- c('x', 'y', 'assignment', 'lambda')
for (my.lambda in unique(data$lambda))
{
p <- ggplot(subset(data, lambda == my.lambda),
aes(x = x, y = y, color = factor(assignment))) +
geom_point() +
opts(legend.position = "none") +
opts(title = paste("dp-Means Algorithm with Lambda =", my.lambda))
ggsave(p, file = paste(my.lambda, "_dp-means.pdf", sep = ""))
ggsave(p, file = paste(my.lambda, "_dp-means.png", sep = ""))
}
Jump to Line
Something went wrong with that request. Please try again.