This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

# number of goals per game

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

What is the average number of goals scored per game?

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

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

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

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

min_goals <- min(goals)
min_goals
[1] 0
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiANCg0KVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiANCg0KYGBge3J9DQojIG51bWJlciBvZiBnb2FscyBwZXIgZ2FtZQ0KDQpnb2FscyA8LSBjKDIsIDMsIDEsIDQsMiwwLDEsNCwzLDIpDQpgYGANCg0KDQoqKldoYXQgaXMgdGhlIHRvdGFsIG51bWJlciBvZiBnb2FscyBzY29yZWQ/ICoqDQpgYGB7cn0NCnRvdGFsX2dvYWxzIDwtIHN1bShnb2FscykNCnRvdGFsX2dvYWxzDQoNCmBgYA0KDQoqKldoYXQgaXMgdGhlIGF2ZXJhZ2UgbnVtYmVyIG9mIGdvYWxzIHNjb3JlZCBwZXIgZ2FtZT8qKg0KYGBge3J9DQphdmVyYWdlX2dvYWxzIDwtIG1lYW4oZ29hbHMpDQphdmVyYWdlX2dvYWxzDQoNCmBgYA0KDQoqKldoYXQgaXMgdGhlIG1heGltdW0gbnVtYmVyIG51bWJlciBvZiBnb2FscyBzY29yZWQgaW4gYSBzaW5nbGUgZ2FtZT8qKg0KYGBge3J9DQptYXhfZ29hbHMgPC0gbWF4KGdvYWxzKQ0KbWF4X2dvYWxzDQpgYGANCg0KKipXaGF0IGlzIHRoZSBtaW5pbXVtIG51bWJlciBvZiBnb2FscyBzY29yZWQgaW4gYSBzaW5nbGUgZ2FtZT8qKg0KYGBge3J9DQptaW5fZ29hbHMgPC0gbWluKGdvYWxzKQ0KbWluX2dvYWxzDQpgYGANCg0K