1 | update.DSCDD_R(object, dsd, n = 1, verbose = FALSE, block = 10000L, ...)
|
object |
|
dsd |
|
n |
|
verbose |
|
block |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (object, dsd, n = 1, verbose = FALSE, block = 10000L,
...)
{
if (is.data.frame(dsd) || is.matrix(dsd)) {
if (verbose)
cat("Clustering all data at once for matrix/data.frame.")
object$RObj$process(dsd, ...)
return(invisible(object))
}
n <- as.integer(n)
block <- as.integer(block)
if (n > 0) {
if (!is(dsd, "DSD_data.frame"))
stop("Cannot cluster stream (need a DSD_data.frame.)")
if (verbose)
total <- 0L
for (bl in .make_block(n, block)) {
object$RObj$process(get_points(dsd, bl), ...)
if (verbose) {
total <- total + bl
cat("Processed", total, "points\n")
}
}
}
invisible(object)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.