search for: r_kmeans_macqueen

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...

...("did not converge in ", + iter.max, " iterations", call. = FALSE) + if (any(Z$nc == 0)) warning("empty cluster: try a better set of initial centers", + call. = FALSE) + Z + + }, { + Z <- .C(R_kmeans_MacQueen, 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)) + if (Z$iter > iter.max) warning("did not converg...