search for: r_kmeans_lloyd

Dear R user, How can I get the C or C++ source code of the "R_kmeans_MacQueen" or "R_kmeans_Lloyd" subroutines implemented in the R "kmeans" function of the R stats-package {stats}? Would these be available as a C header file (*.h) somewhere from the R installation??? Any help to get a C or C++ implementation of these clustering algorithms would be very welcome. Thanks for...

...l. = FALSE), warning(gettextf("did not converge in %d iterations", + iter.max), call. = FALSE, domain = NA), stop("number of cluster centres must lie between 1 and nrow(x)", + call. = FALSE)) + Z + }, { + Z <- .C(R_kmeans_Lloyd, as.double(x), as.integer(m), + as.integer(ncol(x)), centers = as.double(centers), + as.integer(k), c1 = integer(m), iter = as.integer(iter.max), + nc = integer(k), wss = double(k)) + myIter=Z$iter + if (Z$iter > iter.max) w...