# NOT RUN {
#Data
lineup_vec <- round(runif(100, 1, 6))
target_pos <- 3
#Get bootstrapped data:
lineup_boot_df <- gen_boot_samples(lineup_vec, 1000)
#Call:
lineuprops <- gen_lineup_prop(lineup_boot_df, 3, 6)
# }
Run the code above in your browser using DataLab