Nothing
#'CLIQUE algorithm for use with DSC_ThreeStage
#'
#'An implementation of the CLIQUE algorithm that can be used with
#'\link{DSC_ThreeStage}. For more details on this algorithm, consult
#'\link[subspace]{CLIQUE}
#'@param tau the density threshold used to determine whether a hypercube is
#' dense
#'@param xi the grid size used. E.g. a value of 10 means that the dataspace is
#' divided into 10 regions along each dimension.
#'@examples
#'dsc <- DSC_ThreeStage(macro=DSC_clique(),micro=DSC_subspaceCluStream())
#'dsd <- DSD_RandomRBFSubspaceGeneratorEvents()
#'update(dsc,dsd,1000)
#'@export
DSC_clique <- function(xi=10,tau=0.2) {
jref <- rJava::.jcall("moa/r_interface/MacroClustererBuilder",
returnSig="Lmoa/clusterers/macrosubspace/MacroSubspaceClusterer;",
method="buildClique",
as.integer(xi),tau)
res <- structure(list(description="",xi=xi,tau=tau,javaObj=jref),
class=c("DSC_clique","DSC_SubspaceMOA_macro","DSC_SubspaceMOA","DSC"))
return(res)
}
#'ProClus algorithm for use with DSC_ThreeStage
#'
#'An implementation of the ProClus algorithm
#'that can be used with \link{DSC_ThreeStage}.
#'For more details on this
#'algorithm, consult \link[subspace]{ProClus}.
#'@param numOfClusters Number of Clusters to be found.
#'@param avgDimensions Average number of dimensions in which each cluster
#' resides
#'dsc <- DSC_ThreeStage(macro=DSC_proclus(),micro=DSC_subspaceCluStream())
#'dsd <- DSD_RandomRBFSubspaceGeneratorEvents()
#'update(dsc,dsd,1000)
#'@export
DSC_proclus <- function(numOfClusters=5,avgDimensions=3){
jref <- rJava::.jcall("moa/r_interface/MacroClustererBuilder",
returnSig="Lmoa/clusterers/macrosubspace/MacroSubspaceClusterer;",
method="buildProclus",
as.integer(numOfClusters),as.integer(avgDimensions))
res <- structure(list(description="",numOfClusters=numOfClusters,avgDimensions,javaObj=jref),
class=c("DSC_proclus","DSC_SubspaceMOA_macro","DSC_SubspaceMOA","DSC"))
return(res)
}
#'P3C algorithm for use with DSC_ThreeStage
#'
#'An implementation of the P3C algorithm
#'that can be used with \link{DSC_ThreeStage}.
#'For more details on this
#'algorithm, consult \link[subspace]{P3C}
#'@param chiSquareAlpha threshold value for the chi-square distribution that is
#' used to determine whether an area is dense.
#'@param poissonThreshold threshold value to determine wheter two bins will be
#' merged. Note that the value provided will be used as a negative power of 10.
#' E.g. if a value of 20 is provided here, then the algorithm will use a
#' threshold of 1.0*10^-20.
#'dsc <- DSC_ThreeStage(macro=DSC_p3c(),micro=DSC_subspaceCluStream())
#'dsd <- DSD_RandomRBFSubspaceGeneratorEvents()
#'update(dsc,dsd,1000)
#'@export
DSC_p3c <- function(poissonThreshold=10,chiSquareAlpha=0.001) {
jref <- rJava::.jcall("moa/r_interface/MacroClustererBuilder",
returnSig="Lmoa/clusterers/macrosubspace/MacroSubspaceClusterer;",
method="buildP3c",
as.integer(poissonThreshold),chiSquareAlpha)
res <- structure(list(description="",poissonThreshold=poissonThreshold,chiSquareAlpha=chiSquareAlpha,javaObj=jref),
class=c("DSC_p3c","DSC_SubspaceMOA_macro","DSC_SubspaceMOA","DSC"))
return(res)
}
#'SubClu algorithm for use with DSC_ThreeStage
#'
#'An implementation of the SubClu algorithm
#'that can be used with \link{DSC_ThreeStage}.
#'For more details on this
#'algorithm, consult \link[subspace]{SubClu}
#'@param epsilon this parameter determines the size of the epsilon environment for the DBSCAN that is run as a part of this algorithm.
#'@param minSupport minimum number of points in the epsilon environment.
#'@param minOutputDim minimum dimensionality that a cluster must have to be output.
#'dsc <- DSC_ThreeStage(macro=DSC_subclu(),micro=DSC_subspaceCluStream())
#'dsd <- DSD_RandomRBFSubspaceGeneratorEvents()
#'update(dsc,dsd,1000)
#'@export
DSC_subclu <- function(epsilon=0.05,minSupport=50,minOutputDim=3){
jref <- rJava::.jcall("moa/r_interface/MacroClustererBuilder",
returnSig="Lmoa/clusterers/macrosubspace/MacroSubspaceClusterer;",
method="buildSubclu",
epsilon,as.integer(minSupport),as.integer(minOutputDim))
res <- structure(list(description="",epsilon=epsilon,minSupport=minSupport,minOutputDim=minOutputDim,javaObj=jref),
class=c("DSC_subclu","DSC_SubspaceMOA_macro","DSC_SubspaceMOA","DSC"))
return(res)
}
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.