R/Path_Strength-Nonlinear.R

In davidbuch/sconduct: A Suite of Functions for Generalized Path Analysis

#'
#'
#'
#' Total resistance between nodes is evaluated by applying \code{\link[ResistorArray]{Wu}}
#' to the Laplacian matrix induced from the elementwise-inverse sociomatrix.
#'
#' @family nonlinear path strenghts
#'
sconduct <- function(sociomatrix){
  resistance_matrix <- 1/sociomatrix
  laplacian <- diag(apply(resistance_matrix,MARGIN = 1,sum)) - resistance_matrix
  sconductivity <- 1/ResistorArray::Wu(resistance_matrix)
  return(sconductivity)
}