R Kmeans和for循环

Question

大家好我正在尝试使用此代码但不知何故它无效。

   wss = NULL
   bss = NULL
   s_kmeans <- function(fname)
     {
       dataset <- read.csv(file=fname,header = TRUE, sep = ",")
       for(i in 1:10)
          {
            results <- kmeans(dataset,i)
            wss[i] <- results$tot.withinss
            bss[i] <- results$betweenss
          }
     }

我要做的是拿两个阵列wss和bss。使用for循环多次运行kmeans，并在每个循环中将值分别存储在wss和bss中的总内部和之间。但是当我运行代码时，我只会在wss和bss中存储NULL。任何人都可以建议一个更好的方法来做到这一点？ 谢谢。