Skip to content
Browse files

bug: kmeans plot only with 28 m values

  • Loading branch information...
1 parent e5022fb commit d6b01e8807f8eda650173c1cdd9c0ae808f680bb @anasrana committed Nov 25, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 stamm/R/func_runStamm.r
  2. BIN stamm_0.8.tar.gz
View
2 stamm/R/func_runStamm.r
@@ -20,7 +20,7 @@ StammKmeans <- function(g.dat, m.v=2:30, iter.max=1000, nstart=500) {
within.ss[i.m] <- g.km$tot.withinss
}
- J <- within.ss[-1] / within.ss[1:28]
+ J <- within.ss[-1] / within.ss[1:(length(within.ss) - 1)]
kmeans.plot <- StammKmeans.plot(1-J, m.v[-1], x.lab='No. of clusters, m',
y.lab=expression(paste(Delta, "J")), p.title=" ")
View
BIN stamm_0.8.tar.gz
Binary file not shown.

0 comments on commit d6b01e8

Please sign in to comment.
Something went wrong with that request. Please try again.