# Data simulation
set.seed(1)
proba <- runif(n = 200)
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