Nothing
#' Fuzzy Result
#' @import methods
initFuzzyResult<-function(){
#' @name fuzzyResult-class
#' @rdname fuzzyResult-class
#' @slot partition membership matrix
#' @slot label vector of hard partition
#' @slot centroid centroid matrix
#' @slot distance distance matrix
#' @slot func.obj function objective
#' @slot call.func called function
#' @slot fuzzyfier fuzzyness parameter
#' @slot method.fuzzy method of fuzzy clustering used
#' @exportClass fuzzyResult
setClass("fuzzyResult",
representation= representation(partition="matrix",
label="vector",
centroid="matrix",
distance="matrix",
func.obj="numeric",
call.func="character",
fuzzyfier="numeric",
method.fuzzy="character")
)
setMethod("is.na","fuzzyResult",function(x) FALSE)
setMethod("show","fuzzyResult",function(object){
print.fuzzyResult(object)
})
}
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.