R/cohes.R

In nem: Generating networks with selected blockmodel

#' Cohesive blockmodel
#'
#' @description Cohesive blockmodel.
#' @param nbl Number of clusters.
#' @author Marjan Cugmas
#' @export

cohes <- function(nbl){
  B.cohes <- array(NA, dim = c(1, 1, nbl, nbl))
  B.cohes[1,1,,] <- matrix("null", nrow = nbl, ncol = nbl)
  diag(B.cohes[1,1,,]) <- "com"
  return(B.cohes)
}