R/cpair_fuzzy.R

Defines functions fuzzy.cPair

Documented in fuzzy.cPair

#' Pairing fuzzy cluster
#' @param x an fuzzycluster object
#' @param y an fuzzycluster object
fuzzy.cPair<-function(x,y){
  if(!is(x,"fuzzycluster")||!is(y,"fuzzycluster"))
    if(!is(x,"fuzzycluster_list"))
      if(!is(y,"fuzzycluster_list"))
        stop("Both x and y must be fuzzy cluster result")
  if(is(x,"fuzzycluster_list") && is(y,"fuzzycluster_list"))
    result<-new("fuzzycluster_list",pair=append(pair(x),pair(y)))
  else if(is(x,"fuzzycluster_list"))
    result<-new("fuzzycluster_list",pair=append(pair(x),y))
  else if(is(y,"fuzzycluster_list"))
    result<-new("fuzzycluster_list",pair=append(x,pair(y)))
  else
    result<-new("fuzzycluster_list",pair=append(x,y))
}

Try the advclust package in your browser

Any scripts or data that you put into this service are public.

advclust documentation built on May 2, 2019, 10:21 a.m.