RMCDA Guidelines

RMCDA, a universal R package for multi-criteria decision making

RMDA provides a variety of Multi-Criteria Decision Analysis (MCDM) method. Below we review some of these methods and explain how you can utilize this R package for your specific data.

###Load the R package

library(RMCDA)

###Let’s see how the input data looks like

data <- read.csv(system.file("extdata", "AHP_input_file.csv", package = "RMCDA"), header=FALSE)
mat.lst <- read.csv.AHP.matrices(data)
mat.lst
## [[1]]
##                    Material quality Fatigue resistance Protective coating
## Material quality               1.00               0.50                2.0
## Fatigue resistance             2.00               1.00                3.0
## Protective coating             0.50               0.33                1.0
## Ease of cleaning               0.25               0.20                0.5
##                    Ease of cleaning
## Material quality                  4
## Fatigue resistance                5
## Protective coating                2
## Ease of cleaning                  1
## 
## [[2]]
## [[2]][[1]]
##                          Our company - vent clamp Diaclara vent clamp
## Our company - vent clamp                     1.00                1.00
## Diaclara vent clamp                          1.00                1.00
## Lisen vent magnetic                          0.33                0.33
## APPS2 cup holder                             0.33                0.33
##                          Lisen vent magnetic APPS2 cup holder
## Our company - vent clamp                   3                3
## Diaclara vent clamp                        3                3
## Lisen vent magnetic                        1                1
## APPS2 cup holder                           1                1
## 
## [[2]][[2]]
##                          Our company - vent clamp Diaclara vent clamp
## Our company - vent clamp                      1.0                0.50
## Diaclara vent clamp                           2.0                1.00
## Lisen vent magnetic                           1.0                0.50
## APPS2 cup holder                              0.5                0.25
##                          Lisen vent magnetic APPS2 cup holder
## Our company - vent clamp                 1.0                2
## Diaclara vent clamp                      2.0                4
## Lisen vent magnetic                      1.0                2
## APPS2 cup holder                         0.5                1
## 
## [[2]][[3]]
##                          Our company - vent clamp Diaclara vent clamp
## Our company - vent clamp                     1.00                 2.0
## Diaclara vent clamp                          0.50                 1.0
## Lisen vent magnetic                          0.50                 1.0
## APPS2 cup holder                             0.33                 0.5
##                          Lisen vent magnetic APPS2 cup holder
## Our company - vent clamp                 2.0                3
## Diaclara vent clamp                      1.0                2
## Lisen vent magnetic                      1.0                2
## APPS2 cup holder                         0.5                1
## 
## [[2]][[4]]
##                          Our company - vent clamp Diaclara vent clamp
## Our company - vent clamp                     1.00                 2.0
## Diaclara vent clamp                          0.50                 1.0
## Lisen vent magnetic                          0.50                 1.0
## APPS2 cup holder                             0.25                 0.5
##                          Lisen vent magnetic APPS2 cup holder
## Our company - vent clamp                 2.0                4
## Diaclara vent clamp                      1.0                2
## Lisen vent magnetic                      1.0                2
## APPS2 cup holder                         0.5                1

It should be a list containing four matrices, the first matrix includes pairwise comparisons between criteria and the next three matrices are pairwise comparisons of alternatives for each criteria.

###Let’s apply AHP

mat.lst[[1]]->A
mat.lst[[2]]->comparing.competitors
results<- apply.AHP(A, comparing.competitors)
## No serious inconsistencies detected.
## No serious inconsistencies detected.
## No serious inconsistencies detected.
## No serious inconsistencies detected.
## No serious inconsistencies detected.
print(results)
## [[1]]
## [[1]][[1]]
## [1] 0.006878539
## 
## [[1]][[2]]
##   Material quality Fatigue resistance Protective coating   Ease of cleaning 
##         0.28849943         0.47603732         0.15410193         0.08136131 
## 
## 
## [[2]]
##                    Our company - vent clamp Diaclara vent clamp
## Material quality                  0.3754699           0.3754699
## Fatigue resistance                0.2222222           0.4444444
## Protective coating                0.4232684           0.2272592
## Ease of cleaning                  0.4444444           0.2222222
##                    Lisen vent magnetic APPS2 cup holder
## Material quality             0.1245301        0.1245301
## Fatigue resistance           0.2222222        0.1111111
## Protective coating           0.2272592        0.1222133
## Ease of cleaning             0.2222222        0.1111111
## 
## [[3]]
##                    Our company - vent clamp Diaclara vent clamp
## Material quality                 0.10832286           0.1787377
## Fatigue resistance               0.06411098           0.2115721
## Protective coating               0.12211268           0.1081839
## Ease of cleaning                 0.12822197           0.1057861
##                    Lisen vent magnetic APPS2 cup holder
## Material quality            0.01919033      0.010131930
## Fatigue resistance          0.03424487      0.009040146
## Protective coating          0.03502108      0.009943433
## Ease of cleaning            0.03424487      0.009040146
## 
## [[4]]
## Our company - vent clamp      Diaclara vent clamp      Lisen vent magnetic 
##                0.3154960                0.3729964                0.1948143 
##         APPS2 cup holder 
##                0.1166933

mirror server hosted at Truenetwork, Russian Federation.