alternatives <- c("A1", "A2", "A3", "A4", "A5")
optimizations <- c("max", "min", "max", "max", "min", "max", "min", "max", "min", "max")
weights <- c(0.07, 0.07, 0.07, 0.14, 0.2, 0.08, 0.12, 0.125, 0.05, 0.075)
data <- matrix(c(
c(3, 4, 6, 5, 2), # criterion 1 values
c(7, 6, 4, 6, 8), # criterion 2 values
c(4, 5, 5, 6, 3), # criterion 3 values
c(4, 5, 6, 5, 4), # criterion 4 values
c(6, 5, 4, 3, 6), # criterion 5 values
c(4, 5, 5, 6, 3), # criterion 6 values
c(6, 5, 5, 4, 6), # criterion 7 values
c(8, 8, 9, 7, 7), # criterion 8 values
c(5, 6, 7, 8, 7), # criterion 9 values
c(8, 9, 9, 9, 8) # criterion 10 values
), nrow=5, ncol=10)
result <- wispcalc(data, alternatives, optimizations, weights)
Run the code above in your browser using DataLab