# NOT RUN {
# Generate some input data
data <- generate_interactions(10,20,5,2)
# Extract winners and losers
winners <- data$interactions$Winner
losers <- data$interactions$Loser
# Calculate repeatability
r <- estimate_uncertainty_by_repeatability(winners,losers)
# }
Run the code above in your browser using DataLab