Given a vector goals <- c(2, 3, 1, 4,2,0,1,4,3,2) that represents the number of goals scored per game, answer the following questions. After completing this activity using RStudio please share the link or upload your file to Canvas.

goals <- c(2, 3, 1, 4,2,0,1,4,3,2)
# What is the total number of goals scored?
total_goals <- sum(goals)
print(total_goals)
[1] 22
#What is the average number of goals scored per game?
average_goals <- mean(goals)
print(average_goals)
[1] 2.2
#What is the maximum number number of goals scored in a single game?
max_goals <- max(goals)
print(max_goals)
[1] 4
LS0tDQp0aXRsZTogIkV4YW0gMSBRdWVzdGlvbiAxNiINCmF1dGhvcjogIlNlcmdlaSBVbWJhYyINCmRhdGU6ICIyMDI1LTAzLTE1Ig0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KR2l2ZW4gYSB2ZWN0b3IgZ29hbHMgPC0gYygyLCAzLCAxLCA0LDIsMCwxLDQsMywyKSB0aGF0IHJlcHJlc2VudHMgdGhlIG51bWJlciBvZiBnb2FscyBzY29yZWQgcGVyIGdhbWUsIGFuc3dlciB0aGUgZm9sbG93aW5nIHF1ZXN0aW9ucy4gIEFmdGVyIGNvbXBsZXRpbmcgdGhpcyBhY3Rpdml0eSB1c2luZyBSU3R1ZGlvIHBsZWFzZSBzaGFyZSB0aGUgbGluayBvciB1cGxvYWQgeW91ciBmaWxlIHRvIENhbnZhcy4NCg0KYGBge3J9DQpnb2FscyA8LSBjKDIsIDMsIDEsIDQsMiwwLDEsNCwzLDIpDQpgYGANCg0KYGBge3J9DQojIFdoYXQgaXMgdGhlIHRvdGFsIG51bWJlciBvZiBnb2FscyBzY29yZWQ/DQp0b3RhbF9nb2FscyA8LSBzdW0oZ29hbHMpDQpwcmludCh0b3RhbF9nb2FscykNCmBgYA0KDQpgYGB7cn0NCiNXaGF0IGlzIHRoZSBhdmVyYWdlIG51bWJlciBvZiBnb2FscyBzY29yZWQgcGVyIGdhbWU/DQphdmVyYWdlX2dvYWxzIDwtIG1lYW4oZ29hbHMpDQpwcmludChhdmVyYWdlX2dvYWxzKQ0KYGBgDQpgYGB7cn0NCiNXaGF0IGlzIHRoZSBtYXhpbXVtIG51bWJlciBudW1iZXIgb2YgZ29hbHMgc2NvcmVkIGluIGEgc2luZ2xlIGdhbWU/DQptYXhfZ29hbHMgPC0gbWF4KGdvYWxzKQ0KcHJpbnQobWF4X2dvYWxzKQ0KYGBgDQo=