# Create the vector
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
LS0tCnRpdGxlOiAiU3BvcnRzQW5hbHlzaXNFeGFtMSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCmBgYHtyfQojIENyZWF0ZSB0aGUgdmVjdG9yCmdvYWxzIDwtIGMoMiwgMywgMSwgNCwgMiwgMCwgMSwgNCwgMywgMikKYGBgCgoKCmBgYHtyfQpzdW0oZ29hbHMpCmBgYAoKCgoKYGBge3J9Cm1lYW4oZ29hbHMpCmBgYAoKCgpgYGB7cn0KbWF4KGdvYWxzKQpgYGAKCgoKYGBge3J9Cm1pbihnb2FscykKYGBgCgoKCg==