R语言Affinity Propagation+AP聚类实战
目录
R语言Affinity Propagation+AP聚类实战
#仿真数据
n = 100
g = 6
set.seed(g)
d <- data.frame(x = unlist(lapply(1:g, function(i) rnorm(n/g, runif(1)*i^2))),
y = unlist(lapply(1:g, function(i) rnorm(n/g, runif(1)*i^2))))
plot(d)