Análise Hierárquica de Processos - AHP

AHP

Análise Hierárquica de Processos - AHP

Note

Exemplo do video do Rafael Françozo: Example from Rafael Fraçozo video: Link https://www.youtube.com/watch?v=Vl9GxvxaASA

library(ahp)
library (yaml)

AHP = Load("moto.ahp")
Calculate(AHP)
Visualize(AHP)
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
[1] "Node$fields will be deprecated in the next release. Please use Node$attributes instead."
AnalyzeTable(AHP, decisionMaker = "DECISOR1")
Weight NINJA400 CBR650 GSX1000 SS950 Inconsistency
Comprar uma Moto 100.0% 48.2% 25.6% 13.4% 12.9% 6.2%
Custo 64.9% 32.0% 23.4% 6.4% 3.1% 0.0%
Compra 54.1% 29.4% 16.8% 5.3% 2.6% 8.6%
Manutenção 10.8% 2.6% 6.6% 1.1% 0.5% 3.3%
Esportividade 27.9% 15.8% 1.5% 3.3% 7.3% 4.4%
Cilindrada 7.2% 0.4% 0.6% 3.7% 2.5% 7.2% 
AnalyzeTable(AHP, decisionMaker = "DECISOR2")
Weight GSX1000 SS950 CBR650 NINJA400 Inconsistency
Comprar uma Moto 100.0% 41.5% 25.9% 23.3% 9.3% 3.7%
Cilindrada 63.7% 33.6% 22.2% 5.3% 2.6% 4.8%
Esportividade 25.8% 6.8% 3.0% 14.6% 1.4% 4.4%
Custo 10.5% 1.1% 0.6% 3.5% 5.2% 0.0%
Compra 7.9% 0.9% 0.5% 2.6% 3.9% 2.5%
Manutenção 2.6% 0.3% 0.1% 0.9% 1.4% 9.8% 
AnalyzeTable(AHP)
Weight NINJA400 CBR650 GSX1000 SS950 Inconsistency
Comprar uma Moto 100.0% 34.9% 25.0% 22.8% 17.3% 6.2%
Custo 46.8% 22.9% 16.7% 4.8% 2.5% 0.0%
Compra 37.7% 19.8% 12.0% 3.8% 2.0% 8.6%
Manutenção 9.1% 3.1% 4.7% 0.9% 0.4% 9.8%
Esportividade 27.2% 10.7% 6.1% 4.5% 5.8% 4.4%
Cilindrada 26.0% 1.2% 2.3% 13.6% 9.0% 7.2%

Base de Dados

Conteúdo do arquivo moto.ahp

Version: 2.0 Alternatives: &alternatives CBR650: GSX1000: SS950: NINJA400: Goal: name: Comprar uma Moto decision-makers: - DECISOR1: 2/3 - DECISOR2: 1/3 preferences: DECISOR1: pairwise: - [Cilindrada, Esportividade, 1/5] - [Cilindrada, Custo, 1/7] - [Esportividade, Custo, 1/3] DECISOR2: pairwise: - [Cilindrada, Esportividade, 3] - [Cilindrada, Custo, 5] - [Esportividade, Custo, 3] children:

Custo:
  preferences:
    DECISOR1:
      pairwise:
        - [Compra, Manutenção, 5]
    DECISOR2:
      pairwise:
        - [Compra, Manutenção, 3]
  children:
    Compra:
      preferences:
        DECISOR1:
          pairwise:
            - [CBR650, GSX1000, 5]
            - [CBR650, SS950, 7]
            - [CBR650, NINJA400, 1/3]
            - [GSX1000, SS950, 3]
            - [GSX1000, NINJA400, 1/5]
            - [SS950, NINJA400, 1/7]

        DECISOR2:
          pairwise:
            - [CBR650, GSX1000, 4]
            - [CBR650, SS950, 5]
            - [CBR650, NINJA400, 1/2]
            - [GSX1000, SS950, 2]
            - [GSX1000, NINJA400, 1/4]
            - [SS950, NINJA400, 1/6]

      children: *alternatives
    Manutenção:
      preferences:
        DECISOR1:
          pairwise:
            - [CBR650, GSX1000, 7]
            - [CBR650, SS950, 9]
            - [CBR650, NINJA400, 3]
            - [GSX1000, SS950, 3]
            - [GSX1000, NINJA400, 1/3]
            - [SS950, NINJA400, 1/5]

        DECISOR2:
          pairwise:
            - [CBR650, GSX1000, 5]
            - [CBR650, SS950, 9]
            - [CBR650, NINJA400, 1/3]
            - [GSX1000, SS950, 2]
            - [GSX1000, NINJA400, 1/3]
            - [SS950, NINJA400, 1/9]
      children: *alternatives  

Cilindrada:
  preferences:
    DECISOR1:
      pairwise:
        - [CBR650, GSX1000, 1/7]
        - [CBR650, SS950, 1/6]
        - [CBR650, NINJA400, 3]
        - [GSX1000, SS950, 2]
        - [GSX1000, NINJA400, 7]
        - [SS950, NINJA400, 6]

    DECISOR2:
      pairwise:
        - [CBR650, GSX1000, 1/7]
        - [CBR650, SS950, 1/6]
        - [CBR650, NINJA400, 3]
        - [GSX1000, SS950, 2]
        - [GSX1000, NINJA400, 9]
        - [SS950, NINJA400, 8]

  children: *alternatives
Esportividade:
  preferences:
    DECISOR1:
      pairwise:
        - [CBR650, GSX1000, 1/3]
        - [CBR650, SS950, 1/5]
        - [CBR650, NINJA400, 1/7]
        - [GSX1000, SS950, 1/3]
        - [GSX1000, NINJA400, 1/5]
        - [SS950, NINJA400, 1/3]

    DECISOR2:
      pairwise:
        - [CBR650, GSX1000, 3]
        - [CBR650, SS950, 5]
        - [CBR650, NINJA400, 7]
        - [GSX1000, SS950, 3]
        - [GSX1000, NINJA400, 5]
        - [SS950, NINJA400, 3]

  children: *alternatives

# children: *alternatives