library(dplyr)

# Sample dataset
df <- data.frame(Name = c("Alice", "Bob", "Charlie", "David"),
                 Age = c(25, 30, 35, 40),
                 Score = c(90, 85, 88, 92))

# Using pipes
df %>%
  filter(Age > 30) %>%         # Keep only Age > 30
  select(Name, Score) %>%      # Select columns Name and Score
  summarize(avg_score = mean(Score))  # Compute average score