## A random space
space <- matrix(rnorm(25), 5, 5)
## A metric
metric <- c(sum, variances)
## A group of four observations
group <- c(TRUE, TRUE, TRUE, TRUE, FALSE)
## The disparity
dispRity.fast(group, space, metric)
Run the code above in your browser using DataLab