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.

What is the total number of goals scored? What is the average number of goals scored per game? What is the maximum number number of goals scored in a single game? What is the minimum number of goals scored in a single game?

goals <- c(2, 3, 1, 4,2,0,1,4,3,2)
#total goals summed
total_goals <- sum(goals)
total_goals
[1] 22
#average goals
avg_goals <- mean(goals)
avg_goals
[1] 2.2
# max goals
max_goals <- max(goals)
max_goals
[1] 4
#min goals
min_goals <- min(goals)
min_goals
[1] 0
LS0tCnRpdGxlOiAiRXhhbSAxIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCiBHaXZlbiBhIHZlY3RvciBnb2FscyA8LSBjKDIsIDMsIDEsIDQsMiwwLDEsNCwzLDIpIHRoYXQgcmVwcmVzZW50cyB0aGUgbnVtYmVyIG9mIGdvYWxzIHNjb3JlZCBwZXIgZ2FtZSwgYW5zd2VyIHRoZSBmb2xsb3dpbmcgcXVlc3Rpb25zLiAgQWZ0ZXIgY29tcGxldGluZyB0aGlzIGFjdGl2aXR5IHVzaW5nIFJTdHVkaW8gcGxlYXNlIHNoYXJlIHRoZSBsaW5rIG9yIHVwbG9hZCB5b3VyIGZpbGUgdG8gQ2FudmFzLiAKCldoYXQgaXMgdGhlIHRvdGFsIG51bWJlciBvZiBnb2FscyBzY29yZWQ/CldoYXQgaXMgdGhlIGF2ZXJhZ2UgbnVtYmVyIG9mIGdvYWxzIHNjb3JlZCBwZXIgZ2FtZT8KV2hhdCBpcyB0aGUgbWF4aW11bSBudW1iZXIgbnVtYmVyIG9mIGdvYWxzIHNjb3JlZCBpbiBhIHNpbmdsZSBnYW1lPwpXaGF0IGlzIHRoZSBtaW5pbXVtIG51bWJlciBvZiBnb2FscyBzY29yZWQgaW4gYSBzaW5nbGUgZ2FtZT8KCgoKCgoKYGBge3J9CmdvYWxzIDwtIGMoMiwgMywgMSwgNCwyLDAsMSw0LDMsMikKYGBgCiAKIAogCmBgYHtyfQojdG90YWwgZ29hbHMgc3VtbWVkCnRvdGFsX2dvYWxzIDwtIHN1bShnb2FscykKdG90YWxfZ29hbHMKYGBgCiAKIAogCiAKYGBge3J9CiNhdmVyYWdlIGdvYWxzCmF2Z19nb2FscyA8LSBtZWFuKGdvYWxzKQphdmdfZ29hbHMKYGBgCiAKIAogCiAKYGBge3J9CiMgbWF4IGdvYWxzCm1heF9nb2FscyA8LSBtYXgoZ29hbHMpCm1heF9nb2FscwpgYGAKIAogCiAKYGBge3J9CiNtaW4gZ29hbHMKbWluX2dvYWxzIDwtIG1pbihnb2FscykKbWluX2dvYWxzCmBgYAogCiA=