R/calc_BINARY.R

In pievos101/HC-fused: Integrative hierarchical multi-view clustering

calc.BINARY <- function(clustering){
  
  BIN <- matrix(0,length(clustering), length(clustering))
  
  cl  <- unique(clustering)
  
  for(xx in 1:length(cl)){
    
    ids <- which(clustering==cl[xx])
    BIN[ids,ids] <- 1
    
  }
  
  return(BIN)
  
}