# A sample optimization problem with 3 non-adverse impact objectives and 3 predictors
# For more examples, please consult the vignette.
# Specify inputs
# Predictor inter-correlation matrix (Rx)
Rx <- matrix(c(1, .50, .50,
.50, 1, .50,
.50, .50, 1), 3, 3)
# Predictor-objective relation vectors (Rxy1, Rxy2, Rxy3)
# Criterion-related validities
## Criterion 1
Rxy1 <- c(-.30, 0, .30)
## Criterion 2
Rxy2 <- c(0, .30, -.30)
## Criterion 3
Rxy3 <- c(.30, -.30, 0)
# Get Pareto-optimal solutions
# \donttest{
out <- MOST(optProb = "3C", Rx = Rx, Rxy1 = Rxy1, Rxy2 = Rxy2, Rxy3 = Rxy3, Spac = 10)
out
# }
Run the code above in your browser using DataLab