criteria_rank <- c("Criterion 1", "Criterion 2", "Criterion 3",
"Criterion 4", "Criterion 5", "Criterion 6", "Criterion 7", "Criterion 8")
criteria_priority <- c(1, 1, 1, 2, 4, 4, 4, 4)
results <- fucom_method(criteria_rank, criteria_priority)
results$weights
results$Phi
results$w
results$DFC
Run the code above in your browser using DataLab