Displaying 1 result from an estimated 1 matches for "clustersinit".
2009 Sep 09
1
Package that does not work until I re write the exactly the same code
...istance
}
else {
cat(" ~ Fast KmL ~\n")
fast <- TRUE
}
}
nameObject <- deparse(substitute(Object))
for (iRedraw in 1:nbRedrawing) {
for (iNbClusters in nbClusters) {
saveCld <- saveCld + 1
clustersInit <- partitionInitialise(nbClusters = iNbClusters,
method = startingCond[iRedraw], lengthPart = nbId,
matrixDist = as.matrix(dist(trajNoNA, method =
distanceStartingCond)))
clust <- rep(NA, nbIdFull)
if (fast) {
resultKml...