fember 发表于 2019-11-5 17:07 
【问题】【代码:函数】
wssplot这个函数怎么没有啊
Error in wssplot(df) : could not find function "w ...
有了有了
居然是前面偷懒没有定义来的,结果找半天==
wssplot <- function(data,nc=15, seed=1234){
wss <- (nrow(data)-1)*sum(apply(data,2,var))
for (i in 2:nc){
set.seed(seed)
wss
<- sum(kmeans(data, centers = i)$withinss)}
plot(1:nc,wss,type="b")
}