Nothing
#'@import rJava
#'@export
get_centers.DSC_SubspaceMOA <- function(x,type=c("auto","micro","macro"),...) {
methodToCall <- ""
if(("auto" %in% type) || "macro" %in% type) {
methodToCall <- "getMacroclusteringCenters"
} else if ("micro" %in% type) {
methodToCall <- "getMicroclusteringCenters"
} else {
stop("Not implemented yet")
}
res <- rJava::.jcall(x$javaObj,"[[D",methodToCall,evalArray=T,simplify=T)
if(length(as.vector(res))==1 & as.vector(res)[1]==0)return(NULL)
return(data.frame(res))
}
#'@import rJava
#'@export
get_weights.DSC_SubspaceMOA <- function(x,type=c("auto","micro","macro"),scale=NULL,...) {
methodToCall <- ""
if(("auto" %in% type) || "macro" %in% type) {
methodToCall <- "getMacroclusteringWeights"
} else if ("micro" %in% type) {
methodToCall <- "getMicroclusteringWeights"
} else {
stop("Not implemented yet")
}
res <- rJava::.jcall(x$javaObj,"[D",methodToCall,evalArray=T)
if(length(as.vector(res))==1 & as.vector(res)[1]==0)return(NULL)
return (scale_weights(res,scale=scale))
}
#'@export
#'@import stream
#'@import rJava
update.DSC_SubspaceMOA <- function(object,dsd,n = 1, verbose = FALSE, ...) {
points <- get_points(dsd,n)
dsc <- object
apply(points,1,function(row){
rJava::.jcall(dsc$javaObj,"V","trainOn",row)
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.