marcelo-tibau

varghaDelaney <- function(r1, r2) 
{
  m <- length(r1);
  n <- length(r2);
  return ((sum(rank(c(r1, r2))[seq_along(r1)]) / m - (m + 1) / 2) / n);
  
  instanceNames <- c("I0", "I5", "I4", "I3", "I1", "I2");

instanceNames <- c("ACAD", "WMET", "WAMS", "PSOA", "OMET", "PARM");