tests/pairwiseConsistencyMeasures.R
In paterijk/MCDA: Support for the Multicriteria Decision Aiding Process
library(MCDA)
amatrix <- t(matrix(c(1,0.25,4,1/6,4,1,4,0.25,0.25,0.25,1,0.2,6,4,5,1),nrow=4,ncol=4))
test <- pairwiseConsistencyMeasures(amatrix)
stopifnot(round(test$CR, digits = 3) == 0.164 && round(test$Congruence, digits = 3) == 1.275 && round(test$Dissonance, digits = 3) == 0.083 && round(test$Koczkodaj, digits = 3) == 0.792)
paterijk/MCDA documentation built on April 7, 2023, 8:31 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(MCDA)
amatrix <- t(matrix(c(1,0.25,4,1/6,4,1,4,0.25,0.25,0.25,1,0.2,6,4,5,1),nrow=4,ncol=4))
test <- pairwiseConsistencyMeasures(amatrix)
stopifnot(round(test$CR, digits = 3) == 0.164 && round(test$Congruence, digits = 3) == 1.275 && round(test$Dissonance, digits = 3) == 0.083 && round(test$Koczkodaj, digits = 3) == 0.792)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.