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