# Given vector
goals <- c(2, 3, 1, 4,2,0,1,4,3,2)
sum(goals)
[1] 22
#What is the average number of goals scored per game?
mean(goals)
[1] 2.2
# What is the maximum number number of goals scored in a single game?
max(goals)
[1] 4
#What is the minimum number of goals scored in a single game?
min(goals)
[1] 0
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CiMgR2l2ZW4gdmVjdG9yCmdvYWxzIDwtIGMoMiwgMywgMSwgNCwyLDAsMSw0LDMsMikKIyBXaGF0IGlzIHRoZSB0b3RhbCBudW1iZXIgb2YgZ29hbHMgc2NvcmVkPwpzdW0oZ29hbHMpCmBgYAoKYGBge3J9CiNXaGF0IGlzIHRoZSBhdmVyYWdlIG51bWJlciBvZiBnb2FscyBzY29yZWQgcGVyIGdhbWU/Cm1lYW4oZ29hbHMpCmBgYAoKYGBge3J9CiMgV2hhdCBpcyB0aGUgbWF4aW11bSBudW1iZXIgbnVtYmVyIG9mIGdvYWxzIHNjb3JlZCBpbiBhIHNpbmdsZSBnYW1lPwptYXgoZ29hbHMpCmBgYApgYGB7cn0KI1doYXQgaXMgdGhlIG1pbmltdW0gbnVtYmVyIG9mIGdvYWxzIHNjb3JlZCBpbiBhIHNpbmdsZSBnYW1lPwptaW4oZ29hbHMpCmBgYAoK