Nothing
##################################
###### KmknnParam methods ########
##################################
#' @export
#' @importFrom methods new
KmknnParam <- function(..., distance="Euclidean") {
new("KmknnParam", kmeans.args=list(...), distance=distance)
}
#' @export
KmknnParam_kmeans_args <- function(x) {
x@kmeans.args
}
#' @export
setMethod("show", "KmknnParam", function(object) {
callNextMethod()
all.args <- names(KmknnParam_kmeans_args(object))
all.args[is.na(all.args)] <- ""
N <- length(all.args)
if (N >= 4L) all.args <- c(all.args[seq_len(3)], "...")
cat(sprintf("kmeans args(%i): %s\n", N, paste(all.args, collapse=" ")))
})
setMethod("spill_args", "KmknnParam", function(x) {
c(list(distance=bndistance(x)), KmknnParam_kmeans_args(x))
})
##################################
###### KmknnIndex methods ########
##################################
#' @export
#' @importFrom methods new
KmknnIndex <- function(data, centers, info, order, NAMES=NULL, distance="Euclidean") {
new("KmknnIndex", data=data, centers=centers, info=info, order=order, NAMES=NAMES, distance=distance)
}
#' @importFrom S4Vectors setValidity2
setValidity2("KmknnIndex", function(object) {
msg <- character(0)
data <- bndata(object)
centers <- KmknnIndex_cluster_centers(object)
if (nrow(data)!=nrow(centers)) {
msg <- c(msg, "dimensionality is not consistent between 'data' and 'centers")
}
info <- KmknnIndex_cluster_info(object)
if (length(info)!=ncol(centers)) {
msg <- c(msg, "number of clusters is not consistent between 'centers' and 'info'")
}
order <- bnorder(object)
if (length(order)!=ncol(data)) {
msg <- c(msg, "number of observations is not consistent between 'data' and 'order'")
}
if (length(msg)) return(msg)
return(TRUE)
})
#' @export
setMethod("show", "KmknnIndex", function(object) {
callNextMethod()
cat(sprintf("clusters: %i\n", ncol(KmknnIndex_cluster_centers(object))))
})
#' @export
KmknnIndex_cluster_centers <- function(x) {
x@centers
}
#' @export
KmknnIndex_cluster_info <- function(x) {
x@info
}
#' @export
setMethod("bnorder", "KmknnIndex", function(x) x@order)
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.