R/motif_count.R

In Chang-Yu-Chang/MigrationCommunity: Microbial Consumer-Resource Model

#' Motif count
#' @description Count the motifs in a competitive network
#' @name motif_count
#' @param network igraph object
#' @return a vector of seven motifs

motif_count <- function(network) {
  tt <- triad_census(network)[c(10, 9, 12, 14, 13, 15, 16)]
  return(tt)
}