# NOT RUN {
capl_results <- get_capl_demo_data(n = 25)
get_capl_bar_plot(
score = capl_results$capl_score,
interpretation = capl_results$capl_interpretation,
x_label = "Overall physical literacy interpretation",
y_label = "Overall physical literacy score",
)
# }
Run the code above in your browser using DataLab