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.

A) What is the total number of goals scored?

goals<-c(2,3,1,4,2,0,1,4,3,2)

Total number of goals scored

total_goals <-sum(goals)
total_goals
[1] 22

** Total scored goals was 22**

Average Nymber of goals per game

average_gaols <-mean(goals)
average_gaols
[1] 2.2

** Average goals scored per game was 2.2**

Maximum number of goals socred in a single game

max_goals <- max(goals)
max_goals
[1] 4

** Max number of goals in a single game was 4**

Minium number of goals in a single game

min_goals <- min(goals)
min_goals
[1] 0

** Minimum number of goals scored was 0 in a single game**

LS0tCnRpdGxlOiAiRXhhbSAxICIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCkdpdmVuIGEgdmVjdG9yIGdvYWxzIDwtIGMoMiwgMywgMSwgNCwyLDAsMSw0LDMsMikgdGhhdCByZXByZXNlbnRzIHRoZSBudW1iZXIgb2YgZ29hbHMgc2NvcmVkIHBlciBnYW1lLCBhbnN3ZXIgdGhlIGZvbGxvd2luZyBxdWVzdGlvbnMuICBBZnRlciBjb21wbGV0aW5nIHRoaXMgYWN0aXZpdHkgdXNpbmcgUlN0dWRpbyBwbGVhc2Ugc2hhcmUgdGhlIGxpbmsgb3IgdXBsb2FkIHlvdXIgZmlsZSB0byBDYW52YXMuIAoKKipBKSBXaGF0IGlzIHRoZSB0b3RhbCBudW1iZXIgb2YgZ29hbHMgc2NvcmVkPyoqCgpgYGB7cn0KZ29hbHM8LWMoMiwzLDEsNCwyLDAsMSw0LDMsMikKYGBgCgoqKlRvdGFsIG51bWJlciBvZiBnb2FscyBzY29yZWQqKgoKCmBgYHtyfQp0b3RhbF9nb2FscyA8LXN1bShnb2FscykKdG90YWxfZ29hbHMKYGBgCioqIFRvdGFsIHNjb3JlZCBnb2FscyB3YXMgMjIqKiAKCioqQXZlcmFnZSBOeW1iZXIgb2YgZ29hbHMgcGVyIGdhbWUqKgoKYGBge3J9CmF2ZXJhZ2VfZ2FvbHMgPC1tZWFuKGdvYWxzKQphdmVyYWdlX2dhb2xzCmBgYAoqKiBBdmVyYWdlIGdvYWxzIHNjb3JlZCBwZXIgZ2FtZSB3YXMgMi4yKioKCgoKKipNYXhpbXVtIG51bWJlciBvZiBnb2FscyBzb2NyZWQgaW4gYSBzaW5nbGUgZ2FtZSoqIAoKYGBge3J9Cm1heF9nb2FscyA8LSBtYXgoZ29hbHMpCm1heF9nb2FscwpgYGAKCioqIE1heCBudW1iZXIgb2YgZ29hbHMgaW4gYSBzaW5nbGUgZ2FtZSB3YXMgNCoqCgoqKk1pbml1bSBudW1iZXIgb2YgZ29hbHMgaW4gYSBzaW5nbGUgZ2FtZSoqCgpgYGB7cn0KbWluX2dvYWxzIDwtIG1pbihnb2FscykKbWluX2dvYWxzCmBgYAoqKiBNaW5pbXVtICBudW1iZXIgb2YgZ29hbHMgc2NvcmVkIHdhcyAwIGluIGEgc2luZ2xlIGdhbWUqKgoK