# Simulation of probabilities
set.seed(1)
proba <- runif(n = 1000)
# Expected concordance
ExpectedConcordance(proba)
# Simulation of binary outcome
ydata <- rbinom(n = length(proba), size = 1, prob = proba)
# Observed concordance in simulated data
Concordance(observed = ydata, predicted = proba)
Run the code above in your browser using DataLab