R/init_fuzzyResult.R

In advfclust: Fuzzy Clustering (Ensembling and Optimization)

#' 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)
  })
}