goals <- c(2, 3, 1, 4, 2, 0, 1, 4, 3, 2)
# Total number of goals scored
total_goals <- sum(goals)
# Average number of goals scored per game
average_goals <- mean(goals)
# Maximum number of goals scored in a single game
max_goals <- max(goals)
# Minimum number of goals scored in a single game
min_goals <- min(goals)
total_goals
[1] 22
average_goals
[1] 2.2
max_goals
[1] 4
min_goals
[1] 0
LS0tCnRpdGxlOiAiRXhhbSAxIFJTdHVkaW8gUXVlc3Rpb24gMTYiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyfQpnb2FscyA8LSBjKDIsIDMsIDEsIDQsIDIsIDAsIDEsIDQsIDMsIDIpCgojIFRvdGFsIG51bWJlciBvZiBnb2FscyBzY29yZWQKdG90YWxfZ29hbHMgPC0gc3VtKGdvYWxzKQoKIyBBdmVyYWdlIG51bWJlciBvZiBnb2FscyBzY29yZWQgcGVyIGdhbWUKYXZlcmFnZV9nb2FscyA8LSBtZWFuKGdvYWxzKQoKIyBNYXhpbXVtIG51bWJlciBvZiBnb2FscyBzY29yZWQgaW4gYSBzaW5nbGUgZ2FtZQptYXhfZ29hbHMgPC0gbWF4KGdvYWxzKQoKIyBNaW5pbXVtIG51bWJlciBvZiBnb2FscyBzY29yZWQgaW4gYSBzaW5nbGUgZ2FtZQptaW5fZ29hbHMgPC0gbWluKGdvYWxzKQoKdG90YWxfZ29hbHMKYXZlcmFnZV9nb2FscwptYXhfZ29hbHMKbWluX2dvYWxzCgpgYGAKCg==