Calculate the field goal percentage for each game and select the correct average field goal percentage for the five games.

# Name the vectors
FG_Made <- c(18, 7, 6, 9, 10,13) 
FG_Att <- c(36, 23, 12, 18, 24,22)

See the field goal percentage for each game below.

FG_PCT <- FG_Made / FG_Att
print(FG_PCT)
[1] 0.5000000 0.3043478 0.5000000 0.5000000 0.4166667 0.5909091

See the average field goal percentage below.

avg_FG_PCT <- mean(FG_PCT)
print(avg_FG_PCT)
[1] 0.4686539
LS0tCnRpdGxlOiAiRXhhbSAyOiBRdWVzdGlvbiA1IgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgoKQ2FsY3VsYXRlIHRoZSBmaWVsZCBnb2FsIHBlcmNlbnRhZ2UgZm9yIGVhY2ggZ2FtZSBhbmQgc2VsZWN0IHRoZSBjb3JyZWN0IGF2ZXJhZ2UgZmllbGQgZ29hbCBwZXJjZW50YWdlIGZvciB0aGUgZml2ZSBnYW1lcy4KCmBgYHtyfQojIE5hbWUgdGhlIHZlY3RvcnMKRkdfTWFkZSA8LSBjKDE4LCA3LCA2LCA5LCAxMCwxMykgCkZHX0F0dCA8LSBjKDM2LCAyMywgMTIsIDE4LCAyNCwyMikKYGBgCgoKU2VlIHRoZSBmaWVsZCBnb2FsIHBlcmNlbnRhZ2UgZm9yIGVhY2ggZ2FtZSBiZWxvdy4KCmBgYHtyfQpGR19QQ1QgPC0gRkdfTWFkZSAvIEZHX0F0dApwcmludChGR19QQ1QpCmBgYAoKClNlZSB0aGUgYXZlcmFnZSBmaWVsZCBnb2FsIHBlcmNlbnRhZ2UgYmVsb3cuCgpgYGB7cn0KYXZnX0ZHX1BDVCA8LSBtZWFuKEZHX1BDVCkKcHJpbnQoYXZnX0ZHX1BDVCkKYGBgCgoKCg==