R/ergmm.geodesicmatrix.R

Defines functions ergmm.geodesicmatrix

#  File R/ergmm.geodesicmatrix.R in package latentnet, part of the
#  Statnet suite of packages for network analysis, https://statnet.org .
#
#  This software is distributed under the GPL-3 license.  It is free,
#  open source, and has the attribution requirements (GPL Section 7) at
#  https://statnet.org/attribution .
#
#  Copyright 2003-2022 Statnet Commons
################################################################################
ergmm.geodesicmatrix<-function(model){
  Ym<-model[["Ym"]]
  # For the purpose of geodesic distance, dichotomize the network about its mean.
  Ym<-Ym>mean(Ym,na.rm=TRUE)
  Ym[is.na(Ym)]<-0
  Ym <- Ym|t(Ym)
  #' @importFrom sna geodist
  geodist(Ym, count.paths=FALSE, inf.replace=nrow(Ym))$gdist
}

Try the latentnet package in your browser

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

latentnet documentation built on May 11, 2022, 5:16 p.m.