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