tests/testthat/test-applySAW.R

In RMCDA: Multi-Criteria Decision Analysis

library(testthat)

test_that("apply.SAW works for provided example and returns the expected structure", {

  mat <- matrix(c(60, 6.35, 6.8, 10, 2.5, 4.5, 3,
                  0.4, 0.15, 0.1, 0.2, 0.1, 0.08, 0.1,
                  2540, 1016, 1727.2, 1000, 560, 1016, 177,
                  500, 3000, 1500, 2000, 500, 350, 1000,
                  990, 1041, 1676, 965, 915, 508, 920), nrow=7)
                  colnames(mat)<-c("Load capacity", "Repeatability", "Maximum tip speed",
                  "Memory capacity", "Manipulator reach")
  rownames(mat)<-paste0("A", 1:7)
  weights <- c(0.1574, 0.1825, 0.2385, 0.2172, 0.2043)
  beneficial.vector <- c(1, 3, 4, 5)
  results <- apply.SAW(mat, weights, beneficial.vector)

  expect_length(results[[1]][,1], nrow(mat))
  expect_length(results[[2]], nrow(mat))

  expect_type(results[[1]], "double")
})