# NOT RUN {
library(RMCriteria)
## Create objects for each argument
data <-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
alternatives <- c("Alt 1", "Alt 2", "Alt 3")
## Create RPrometheeArguments object
PromObj <- RPrometheeConstructor(datMat = data, vecWeights = vecWeights,
vecMaximiz = vecMaximiz, prefFunction = prefFunction,
parms = parms, normalize = normalize, alternatives = alternatives)
## Run RPrometheeI
(result <- RPrometheeI(PromObj))
## There are two alternatives two plot a RPrometheeI object:
plot(result)
PrometheeIPlot(result)
## Updating alternatives name using UpdateRPrometheeAlternatives
newAlternatives <- c("A", "B", "C")
result <- UpdateRPrometheeAlternatives(result, newAlternatives)
## Updating any argument using UpdateRPrometheeArguments
newWeights <- c(0.5, 0.5)
PromObj <- UpdateRPrometheeArguments(PromObj, "vecWeights", newWeights)
(results <- RPrometheeI(PromObj))
# }
Run the code above in your browser using DataLab