#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. 
goals<-c(2,3,1,4,2,0,1,4,3,2)

#What is the total number of goals scored?

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

the total # of goals is 22

#What is the average number of goals scored per game?

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

The average # of goals is 2.2

#What is the maximum number number of goals scored in a single game?

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

The max # of goals is 4

#What is the minimum number of goals scored in a single game?

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

The minimum # of goals is 0

LS0tCnRpdGxlOiAiRXhhbSAxIHdpdGggUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CiNHaXZlbiBhIHZlY3RvciBnb2FscyA8LSBjKDIsIDMsIDEsIDQsMiwwLDEsNCwzLDIpIHRoYXQgcmVwcmVzZW50cyB0aGUgbnVtYmVyIG9mIGdvYWxzIHNjb3JlZCBwZXIgZ2FtZSwgYW5zd2VyIHRoZSBmb2xsb3dpbmcgcXVlc3Rpb25zLiAKYGBgCgpgYGB7cn0KZ29hbHM8LWMoMiwzLDEsNCwyLDAsMSw0LDMsMikKCiNXaGF0IGlzIHRoZSB0b3RhbCBudW1iZXIgb2YgZ29hbHMgc2NvcmVkPwoKdG90YWxfZ29hbHMgPC1zdW0oZ29hbHMpCnRvdGFsX2dvYWxzCmBgYAp0aGUgdG90YWwgIyBvZiBnb2FscyBpcyAyMgoKYGBge3J9CiNXaGF0IGlzIHRoZSBhdmVyYWdlIG51bWJlciBvZiBnb2FscyBzY29yZWQgcGVyIGdhbWU/CgphdmVyYWdlX2dvYWxzIDwtIG1lYW4oZ29hbHMpCmF2ZXJhZ2VfZ29hbHMKYGBgClRoZSBhdmVyYWdlICMgb2YgZ29hbHMgaXMgMi4yCgpgYGB7cn0KI1doYXQgaXMgdGhlIG1heGltdW0gbnVtYmVyIG51bWJlciBvZiBnb2FscyBzY29yZWQgaW4gYSBzaW5nbGUgZ2FtZT8KCm1heF9nb2FscyA8LSBtYXgoZ29hbHMpCm1heF9nb2FscwpgYGAKVGhlIG1heCAjIG9mIGdvYWxzIGlzIDQKCmBgYHtyfQojV2hhdCBpcyB0aGUgbWluaW11bSBudW1iZXIgb2YgZ29hbHMgc2NvcmVkIGluIGEgc2luZ2xlIGdhbWU/CgptaW5fZ29hbHMgPC0gbWluKGdvYWxzKQptaW5fZ29hbHMKYGBgClRoZSBtaW5pbXVtICMgb2YgZ29hbHMgaXMgMAo=