Running ‘PrometheeI.R’ [1s/2s]
  Running ‘PrometheeII.R’ [1s/2s]
  Running ‘PrometheeIII.R’ [1s/2s]
  Running ‘PrometheeIV.R’ [1s/2s]
  Running ‘PrometheeIVKernel.R’ [1s/2s]
  Running ‘PrometheeNetwork.R’ [1s/2s]
  Running ‘PrometheeV.R’ [1s/2s]
  Running ‘SensitivityAnalysis.R’ [1s/2s]
Running the tests in ‘tests/PrometheeI.R’ failed.
Complete output:
  > library(RMCriteria)
  > dados<-matrix(c(5.8, -3.5,
  +                 4.3, -1.2,
  +                 6.7, -2.0), byrow = TRUE, ncol = 2, nrow = 3)
  > 
  > rownames(dados) <- c("Alt 1", "Alt 2", "Alt 3")
  > colnames(dados) <- c("Criteria 1", "Criteria 2")
  > 
  > parms<-matrix(c(NA, NA), byrow = TRUE, ncol = 1, nrow = 2)
  > 
  > vecWeights <- c(0.3, 0.7)
  > vecMaximiz <- c(TRUE, TRUE)
  > prefFunction <- c(0, 0)
  > normalize <- FALSE
  > 
  > #########################################################
  > #Step 1: Construct the RPrometheeArguments
  > PromObj <- RPrometheeConstructor(datMat = dados, vecWeights = vecWeights, vecMaximiz = vecMaximiz, prefFunction = prefFunction, parms = parms, normalize = normalize)
  > 
  > res <- RPrometheeI(PromObj)
  > summary(res)
                                         Criteria 1 Criteria 2
  Total number of alternatives            3.0000000  3.0000000
  Total number of alternatives with NULL  0.0000000  0.0000000
  Total number of alternatives with NA    0.0000000  0.0000000
  Minimum                                 4.3000000 -3.5000000
  Maximum                                 6.7000000 -1.2000000
  Range                                   2.4000000  2.3000000
  Sum                                    16.8000000 -6.7000000
  Median                                  5.8000000 -2.0000000
  Mean                                    5.6000000 -2.2333333
  Standard Error for the mean             0.7000000  0.6741249
  Variance                                1.4700000  1.3633333
  Standard Deviation                      1.2124356  1.1676187
  Coefficient of variation                0.2165064 -0.5228143
  > summary(PromObj)
                                         Criteria 1 Criteria 2
  Total number of alternatives            3.0000000  3.0000000
  Total number of alternatives with NULL  0.0000000  0.0000000
  Total number of alternatives with NA    0.0000000  0.0000000
  Minimum                                 4.3000000 -3.5000000
  Maximum                                 6.7000000 -1.2000000
  Range                                   2.4000000  2.3000000
  Sum                                    16.8000000 -6.7000000
  Median                                  5.8000000 -2.0000000
  Mean                                    5.6000000 -2.2333333
  Standard Error for the mean             0.7000000  0.6741249
  Variance                                1.4700000  1.3633333
  Standard Deviation                      1.2124356  1.1676187
  Coefficient of variation                0.2165064 -0.5228143
  > print(res)
  ##############################
  ##### Promethee I object #####
  ##############################
                  
  # Criterias: Criteria 1 Criteria 2 
  # Alternatives: Alt 1 Alt 2 Alt 3 
  # Phi Plus: 0.095 0.512 0.463 
  # Phi Minus: 0.710 0.283 0.078> show(res)
  Promethee I object with 3 alternatives. 
  Phi Plus: 0.095 0.512 0.463 
  Phi Minus: 0.710 0.283 0.078 
  The alternatives are: Alt 1 Alt 2 Alt 3> str(res)
  Formal class 'RPrometheeI' [package "RMCriteria"] with 5 slots
    ..@ PhiPlus     : num [1:3] 0.0954 0.5122 0.4626
    ..@ PhiMinus    : num [1:3] 0.7099 0.2827 0.0775
    ..@ alternatives: chr [1:3] "Alt 1" "Alt 2" "Alt 3"
    ..@ criterias   : chr [1:2] "Criteria 1" "Criteria 2"
    ..@ datMat      : num [1:3, 1:2] 5.8 4.3 6.7 -3.5 -1.2 -2
    .. ..- attr(*, "dimnames")=List of 2
    .. .. ..$ : chr [1:3] "Alt 1" "Alt 2" "Alt 3"
    .. .. ..$ : chr [1:2] "Criteria 1" "Criteria 2"
  > 
  > PrometheeIPlot(res)
  Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
    VECTOR_ELT() can only be applied to a 'list', not a 'double'
  Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
  Execution halted
Running the tests in ‘tests/PrometheeII.R’ failed.
Complete output:
  > library(RMCriteria)
  > dados<-matrix(c(5.2, -3.5,
  +                 4.3, -1.2,
  +                 6.7, -2.0), byrow = TRUE, ncol = 2, nrow = 3)
  > 
  > colnames(dados)<-c("Criteria 1","Criteria 2")
  > rownames(dados)<-c("Alternative 1", "Alternative 2", "Alternative 3")
  > 
  > parms <- matrix(c(NA, NA), byrow = TRUE, ncol = 1, nrow = 2)
  > 
  > #RMCriteria::PrometheeII(dados,c(0.3,0.7),c(0,0),parms,FALSE)
  > 
  > #Step 1: Construct the RPrometheeArguments
  > PromObj <- RPrometheeConstructor(datMat = dados, vecWeights = c(0.3, 0.7), vecMaximiz= c(FALSE, TRUE), prefFunction = c(0, 0), parms = parms, normalize = FALSE)
  > result <- RPrometheeII(PromObj)
  > summary(result)
                                         Criteria 1 Criteria 2
  Total number of alternatives            3.0000000  3.0000000
  Total number of alternatives with NULL  0.0000000  0.0000000
  Total number of alternatives with NA    0.0000000  0.0000000
  Minimum                                 4.3000000 -3.5000000
  Maximum                                 6.7000000 -1.2000000
  Range                                   2.4000000  2.3000000
  Sum                                    16.2000000 -6.7000000
  Median                                  5.2000000 -2.0000000
  Mean                                    5.4000000 -2.2333333
  Standard Error for the mean             0.7000000  0.6741249
  Variance                                1.4700000  1.3633333
  Standard Deviation                      1.2124356  1.1676187
  Coefficient of variation                0.2245251 -0.5228143
  > print(result)
  ###############################
  ##### Promethee II object #####
  ###############################
                  
  # Criterias: Criteria 1 Criteria 2 
  # Alternatives: Alternative 1 Alternative 2 Alternative 3 
  # Phi: -0.615 0.738 -0.124> show(result)
  Promethee II object with 3 alternatives. 
  Phi: -0.615 0.738 -0.124 
  The alternatives are: Alternative 1 Alternative 2 Alternative 3> str(result)
  Formal class 'RPrometheeII' [package "RMCriteria"] with 5 slots
    ..@ Phi         : num [1:3] -0.615 0.738 -0.124
    ..@ vecWeights  : num [1:2] 0.3 0.7
    ..@ alternatives: chr [1:3] "Alternative 1" "Alternative 2" "Alternative 3"
    ..@ criterias   : chr [1:2] "Criteria 1" "Criteria 2"
    ..@ datMat      : num [1:3, 1:2] 5.2 4.3 6.7 -3.5 -1.2 -2
    .. ..- attr(*, "dimnames")=List of 2
    .. .. ..$ : chr [1:3] "Alternative 1" "Alternative 2" "Alternative 3"
    .. .. ..$ : chr [1:2] "Criteria 1" "Criteria 2"
  > 
  > PrometheeIIPlot(result)
  Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
    VECTOR_ELT() can only be applied to a 'list', not a 'double'
  Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
  Execution halted
Running the tests in ‘tests/PrometheeIII.R’ failed.
Complete output:
  > library(RMCriteria)
  > datMat <- matrix(c(5.2, -3.5,
  +                    4.3, -1.2,
  +                    6.7, -2.0), byrow = TRUE, ncol = 2, nrow = 3)
  > 
  > parms <- matrix(c(NA, NA), byrow = TRUE, ncol = 1, nrow = 2)
  > vecWeights <- c(0.3, 0.7)
  > vecMaximiz <- c(FALSE, TRUE)
  > prefFunction <- c(0, 0)
  > normalize <- FALSE
  > alphaVector <- c(1, 2, 1)
  > 
  > PromObj <- RPrometheeConstructor(datMat = datMat, vecWeights = vecWeights, vecMaximiz = vecMaximiz, prefFunction = prefFunction, parms = parms, normalize = normalize, alphaVector = alphaVector)
  > 
  > res <- RPrometheeIII(PromObj)
  > summary(res)
                                                 V1         V2
  Total number of alternatives            3.0000000  3.0000000
  Total number of alternatives with NULL  0.0000000  0.0000000
  Total number of alternatives with NA    0.0000000  0.0000000
  Minimum                                 4.3000000 -3.5000000
  Maximum                                 6.7000000 -1.2000000
  Range                                   2.4000000  2.3000000
  Sum                                    16.2000000 -6.7000000
  Median                                  5.2000000 -2.0000000
  Mean                                    5.4000000 -2.2333333
  Standard Error for the mean             0.7000000  0.6741249
  Variance                                1.4700000  1.3633333
  Standard Deviation                      1.2124356  1.1676187
  Coefficient of variation                0.2245251 -0.5228143
  > print(res)
  ################################
  ##### Promethee III object #####
  ################################
                  
  # Criterias: 1 2 
  # Alternatives: 1 2 3 
  # Phi: -0.615 0.738 -0.124 
  # Upper Limit Limit: -0.006 0.633 0.127 
  # Bottom Limit: -0.403 -0.141 -0.210> show(res)
  Promethee III object with 3 alternatives. 
  Phi: -0.615 0.738 -0.124 
  Upper Limit:  -0.006 0.633 0.127 
  Bottom Limit:  -0.403 -0.141 -0.210 
  The alternatives are: 1 2 3> str(res)
  Formal class 'RPrometheeIII' [package "RMCriteria"] with 6 slots
    ..@ limInf      : num [1:3] -0.403 -0.141 -0.21
    ..@ limSup      : num [1:3] -0.00647 0.63338 0.12714
    ..@ Phi         : num [1:3] -0.615 0.738 -0.124
    ..@ alternatives: chr [1:3] "1" "2" "3"
    ..@ criterias   : chr [1:2] "1" "2"
    ..@ datMat      : num [1:3, 1:2] 5.2 4.3 6.7 -3.5 -1.2 -2
  > 
  > PrometheeIIIPlot(res)
  Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
    VECTOR_ELT() can only be applied to a 'list', not a 'double'
  Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
  Execution halted
Running the tests in ‘tests/PrometheeIV.R’ failed.
Complete output:
  > library(RMCriteria)
  > dados<-matrix(c(5.2, -3.5,
  +                 4.3, -1.2,
  +                 6.7, -2.0), byrow = TRUE, ncol = 2, nrow = 3)
  > 
  > # dados<-matrix(c(5.2,-3.5,
  > #                 4.3,-1.2,
  > #                 6.7,-2.0,
  > #                 5.1,-8.3,
  > #                 1.8, 0.0,
  > #                 9.7,-4.9,
  > #                 10.8,-1),byrow = T, ncol=2)
  > 
  > parms<-matrix(c(1.0,
  +                 1.3), byrow = TRUE, ncol = 1, nrow = 2)
  > 
  > PromObj <- RPrometheeConstructor(datMat = dados, vecWeights = c(0.5, 0.5), vecMaximiz = c(FALSE, TRUE), prefFunction = c(0, 0), parms = parms, normalize = FALSE)
  > res <- RPrometheeIV(PromObj)
  > summary(res)
                                                 V1         V2
  Total number of alternatives            3.0000000  3.0000000
  Total number of alternatives with NULL  0.0000000  0.0000000
  Total number of alternatives with NA    0.0000000  0.0000000
  Minimum                                 4.3000000 -3.5000000
  Maximum                                 6.7000000 -1.2000000
  Range                                   2.4000000  2.3000000
  Sum                                    16.2000000 -6.7000000
  Median                                  5.2000000 -2.0000000
  Mean                                    5.4000000 -2.2333333
  Standard Error for the mean             0.7000000  0.6741249
  Variance                                1.4700000  1.3633333
  Standard Deviation                      1.2124356  1.1676187
  Coefficient of variation                0.2245251 -0.5228143
  > print(res)
  ###############################
  ##### Promethee IV object #####
  ###############################
                  
  # Criterias: 1 2 
  # Alternatives: 1 2 3 
  # Phi Plus: 0.659 0.982 0.745 
  # Phi Minus: -0.659 -0.982 -0.745> show(res)
  Promethee IV object with 3 alternatives. 
  Phi Plus:  0.659 0.982 0.745 
  Phi Minus:  -0.659 -0.982 -0.745 
  The alternatives are: 1 2 3> str(res)
  Formal class 'RPrometheeIV' [package "RMCriteria"] with 6 slots
    ..@ PhiPlus     : num [1:3] 0.659 0.982 0.745
    ..@ PhiMinus    : num [1:3] -0.659 -0.982 -0.745
    ..@ Index       : num [1:3] 1.32 1.96 1.49
    ..@ alternatives: chr [1:3] "1" "2" "3"
    ..@ criterias   : chr [1:2] "1" "2"
    ..@ datMat      : num [1:3, 1:2] 5.2 4.3 6.7 -3.5 -1.2 -2
  > PrometheeIVPlot(res)
  Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
    VECTOR_ELT() can only be applied to a 'list', not a 'double'
  Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
  Execution halted