# Create the vector
goals <- c(2, 3, 1, 4, 2, 0, 1, 4, 3, 2)
# Total number of goals
sum(goals)
[1] 22
# Average goals per game
mean(goals)
[1] 2.2
# Maximum goals in a single game
max(goals)
[1] 4
# Minimum goals in a single game
min(goals)
[1] 0
LS0tCnRpdGxlOiAiRXhhbSAxIFN1bW1lcl8yMDI2ICIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CiMgQ3JlYXRlIHRoZSB2ZWN0b3IKZ29hbHMgPC0gYygyLCAzLCAxLCA0LCAyLCAwLCAxLCA0LCAzLCAyKQpgYGAKCgpgYGB7cn0KIyBUb3RhbCBudW1iZXIgb2YgZ29hbHMKc3VtKGdvYWxzKQpgYGAKCgoKYGBge3J9CiMgQXZlcmFnZSBnb2FscyBwZXIgZ2FtZQptZWFuKGdvYWxzKQpgYGAKCgpgYGB7cn0KIyBNYXhpbXVtIGdvYWxzIGluIGEgc2luZ2xlIGdhbWUKbWF4KGdvYWxzKQpgYGAKCgoKYGBge3J9CiMgTWluaW11bSBnb2FscyBpbiBhIHNpbmdsZSBnYW1lCm1pbihnb2FscykKYGBgCgo=