Skip to content

Instantly share code, notes, and snippets.

@marcelo-tibau

marcelo-tibau/gist:13d81a6dc68a77fd9a7af8be1e7692f5

Last active December 1, 2017 22:53
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save marcelo-tibau/13d81a6dc68a77fd9a7af8be1e7692f5 to your computer and use it in GitHub Desktop.
Save marcelo-tibau/13d81a6dc68a77fd9a7af8be1e7692f5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
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");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment