R/total_relationship_matrix.R

In muhlisoz/dematel: Solving Multi-Criteria Decision Making problems with Dematel Technique in R

#' Relationship matrix
#'
#' Returns total relationship matrix of direct relationship decision matrix
#'
#' @param x a matrix containing the values of direct relationship decision matrix.
#'
#' @return This function returns a \code{matrix}
#'
#' @author Muhlis Ozdemir <muhlisoz@gmail.com>
#'
#' @seealso \code{\link{apply}} function.
#'
#' @export
#'
#' @examples
#' total_relationship_matrix(dematel::hospitaldata)
#' total_relationship_matrix(dematel::nurseselection)
#' total_relationship_matrix(dematel::medicaldevice)
total_relationship_matrix <- function(x) {

  x <- check_data(x)

  get_normalized_matrix <- normalize_data(x)
  return(get_normalized_matrix %*% solve((diag(nrow(x)) - get_normalized_matrix)))
}

#' @family aggregate functions
#' @seealso