R/threshold_value.R

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

#' Threshold value
#'
#' Returns threshold value of direct relationship decision matrix
#'
#' @param x a matrix containing the values of direct relationship decision matrix.
#'
#' @return This function returns a \code{num}
#'
#' @author Muhlis Ozdemir <muhlisoz@gmail.com>
#'
#' @export
#' @examples
#' threshold_value(dematel::hospitaldata)
#' threshold_value(dematel::nurseselection)
#' threshold_value(dematel::medicaldevice)
threshold_value <- function(x) {

  x <- check_data(x)

  return(mean(total_relationship_matrix(x)))
}