Evaluating exam scores to determine average improvement

# The 'before' scores vector
before <- c(49, 57, 40, 52, 49, 55)

# The 'after' scores vector
after <- c(75, 65, 61, 66, 71, 68)

# Evaluating and showing the improvement for each participant individually
for (i in 1:length(before)) {
  improvement <- after[i] - before[i]
  cat(paste("Participant", i, "- Before:", before[i], ", After:", after[i], ", Improvement:", improvement, "\n"))
}

## Participant 1 - Before: 49 , After: 75 , Improvement: 26 
## Participant 2 - Before: 57 , After: 65 , Improvement: 8 
## Participant 3 - Before: 40 , After: 61 , Improvement: 21 
## Participant 4 - Before: 52 , After: 66 , Improvement: 14 
## Participant 5 - Before: 49 , After: 71 , Improvement: 22 
## Participant 6 - Before: 55 , After: 68 , Improvement: 13

# Calculating the average improvement
average_improvement <- mean(after - before)

# Printing the average improvement
cat("\nAverage improvement:", average_improvement, "\n")

## 
## Average improvement: 17.33333