R/as_Membership.R

In cofclust: Consensus Optimization Fuzzy Clustering

#' As Membership/Membership Matrix
#' @description Convert matrix to membership matrix
#' @param  member membership matrix
#' @return Membership Membership object, contains membership and label
#' @export
"as.membership"<-function(member){
  ifelse(is.membership(member),
         return(member),
         return(membership(member,
                       K=ncol(member),
                       n=nrow(member))))
}