goals <- c(2, 3, 1, 4,2,0,1,4,3,2)
Total_Goals <- sum(goals)
print(Total_Goals)
[1] 22
Average_Goals <- mean(goals)
print(Average_Goals)
[1] 2.2
#Declared the variable Min_Goals and used the function min() to select the lowest goals and added it to Min_Goals
Min_Goals <- min(goals)
#Used the print() function to display the contents of Average_Goals. In This case the average goals are 2.2
print(Min_Goals)
[1] 0
#Declared the variable Average_Goals and used the function mean() to average goals and added it to Average_Goals
Max_Goals <- max(goals)
#Used the print() function to display the contents of Average_Goals. In This case the average goals are 2.2
print(Max_Goals)
[1] 4
LS0tDQp0aXRsZTogIlF1ZXN0aW9uIDE2Ig0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KDQpgYGB7cn0NCiNJbiB0aGlzIGNvZGUgdGhlIHZhcmlhYmxlIGdvYWxzIHdhcyBkZWNsYXJlZCBhbmQgdGhlbiBjaGFuZ2VkIHRvIGEgdmVjdG9yIGJ5IGFkZGluZyBjKDIsIDMsIDEsIDQsMiwwLDEsNCwzLDIpDQpnb2FscyA8LSBjKDIsIDMsIDEsIDQsMiwwLDEsNCwzLDIpIA0KI0RlY2xhcmVkIHRoZSB2YXJpYWJsZSBUb3RhbF9Hb2FscyBhbmQgdXNlZCB0aGUgZnVuY3Rpb24gU1VNKCkgdG8gc3VtIGdvYWxzIGFuZCBhZGRlZCBpdCB0byBUb3RhbF9Hb2Fscw0KVG90YWxfR29hbHMgPC0gc3VtKGdvYWxzKQ0KI1VzZWQgdGhlIHByaW50KCkgZnVuY3Rpb24gdG8gZGlzcGxheSB0aGUgY29udGVudHMgb2YgVG90YWxfR29hbHMuIEluIFRoaXMgY2FzZSB0aGUgdG90YWwgZ29hbHMgYXJlIDIyDQpwcmludChUb3RhbF9Hb2FscykNCg0KYGBgDQoNCg0KYGBge3J9DQojRGVjbGFyZWQgdGhlIHZhcmlhYmxlIEF2ZXJhZ2VfR29hbHMgYW5kIHVzZWQgdGhlIGZ1bmN0aW9uIG1lYW4oKSB0byBhdmVyYWdlIGdvYWxzIGFuZCBhZGRlZCBpdCB0byBBdmVyYWdlX0dvYWxzDQpBdmVyYWdlX0dvYWxzIDwtIG1lYW4oZ29hbHMpDQojVXNlZCB0aGUgcHJpbnQoKSBmdW5jdGlvbiB0byBkaXNwbGF5IHRoZSBjb250ZW50cyBvZiBBdmVyYWdlX0dvYWxzLiBJbiBUaGlzIGNhc2UgdGhlIGF2ZXJhZ2UgZ29hbHMgYXJlIDIuMg0KcHJpbnQoQXZlcmFnZV9Hb2FscykNCmBgYA0KDQoNCmBgYHtyfQ0KI0RlY2xhcmVkIHRoZSB2YXJpYWJsZSBNaW5fR29hbHMgYW5kIHVzZWQgdGhlIGZ1bmN0aW9uIG1pbigpIHRvIHNlbGVjdCB0aGUgbG93ZXN0IGdvYWxzIHZhbHVlIGFuZCBhZGRlZCBpdCB0byBNaW5fR29hbHMNCk1pbl9Hb2FscyA8LSBtaW4oZ29hbHMpDQojVXNlZCB0aGUgcHJpbnQoKSBmdW5jdGlvbiB0byBkaXNwbGF5IHRoZSBjb250ZW50cyBvZiBNaW5fR29hbHMuIEluIHRoaXMgY2FzZSB0aGUgbG93ZXN0IGdvYWxzIHZhbHVlcyBpcyAwDQpwcmludChNaW5fR29hbHMpDQpgYGANCg0KYGBge3J9DQojRGVjbGFyZWQgdGhlIHZhcmlhYmxlIE1heF9Hb2FscyBhbmQgdXNlZCB0aGUgZnVuY3Rpb24gbWF4KCkgdG8gc2VsZWN0IHRoZSBoaWdoZXN0IGdvYWxzIHZhbHVlIGFuZCBhZGRlZCBpdCB0byBNYXhfR29hbHMNCk1heF9Hb2FscyA8LSBtYXgoZ29hbHMpDQojVXNlZCB0aGUgcHJpbnQoKSBmdW5jdGlvbiB0byBkaXNwbGF5IHRoZSBjb250ZW50cyBvZiBBdmVyYWdlX0dvYWxzLiBJbiB0aGlzIGNhc2UgdGhlIGhpZ2hlc3QgZ29hbHMgdmFsdWVzIGlzIDQNCnByaW50KE1heF9Hb2FscykNCmBgYA0KDQo=