goals <- c(2, 3, 1, 4, 2, 0, 1, 4, 3, 2)
sum(goals)
[1] 22
mean(goals)
[1] 2.2
max(goals)
[1] 4
min(goals)
[1] 0
LS0tCnRpdGxlOiAiUXVlc3Rpb24gMTQgLSBFeGFtIDEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyfQpnb2FscyA8LSBjKDIsIDMsIDEsIDQsIDIsIDAsIDEsIDQsIDMsIDIpCmBgYAoKCmBgYHtyfQpzdW0oZ29hbHMpCmBgYAoKYGBge3J9Cm1lYW4oZ29hbHMpCmBgYAoKYGBge3J9Cm1heChnb2FscykKYGBgCgpgYGB7cn0KbWluKGdvYWxzKQpgYGAKCgoK