goals <- c(2, 3, 1, 4, 2, 0, 1, 4, 3, 2)

total_goals <- sum(goals)
avg_goals <- mean(goals)
max_goals <- max(goals)
min_goals <- min(goals)

total_goals
## [1] 22
avg_goals
## [1] 2.2
max_goals
## [1] 4
min_goals
## [1] 0