set.seed(123)
# no weights
low <- runif(10)^2
middle <- runif(10)
high <- sqrt(runif(20))
evalMultiAUC(low, middle, high)
# equal weights
low <- matrix(c(low, rep(1, length(low))), ncol=2)
middle <- matrix(c(middle, rep(1, length(middle))), ncol=2)
high <- matrix(c(high, rep(1, length(high))), ncol=2)
evalMultiAUC(low, middle, high)
# equal weights with weighting by number of comparisons
evalMultiAUC(low, middle, high, weightBySize=TRUE)
# unequal weights
middle[ , 2] <- ifelse(middle[ , 1] > 0.5, 0.1, 1)
evalMultiAUC(low, middle, high)
# unequal weights with weighting by number of comparisons
evalMultiAUC(low, middle, high, weightBySize=TRUE)
Run the code above in your browser using DataLab