R/execute_dematel.R

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

#' Complete Dematel Analysis
#'
#' Executes dematel analysis at once
#'
#' @param x a matrix containing the values of normalized initial direct-relation decision matrix.
#'
#' @return This function executes dematel analysis at once and returns
#' a \code{matrix} that contains data,
#' a \code{matrix} that contains normalized data,
#' a \code{matrix} that contains normalized initial direct-relation matrix,
#' a \code{data.frame} that contains relationships between criteria,
#' a \code{graph},
#' a \code{num} that contains threshold value,
#' a \code{list} of criteria comparisons.
#'
#' @export
#'

execute_dematel <- function(x) {
  x <- check_data(x)
  return(list(
    data = x,
    normalized_data = normalize_data(x),
    normalized_initial_direct_relation_matrix = total_relationship_matrix(x),
    relationships_between_criteria = relationships_between_criteria(x),
    graph = visualize(as.matrix(x)),
    threshold_value = threshold_value(x),
    comparison_of_criteria = compare_criteria(x)
  ))
}