#Three-Pointers Made: three_made<-c(4, 5, 3, 6, 7) #Three-Pointers Attempted: three_attempted<-c(9, 10, 8, 11, 12) avg_game<-round(three_made/three_attempted,3) avg_game

[1] 0.444 0.500 0.375 0.545 0.583

overall_avg<-round(mean(avg_game),2) overall_avg

[1] 0.49

avg_total<-round(sum(three_made)/sum(three_attempted),3) avg_total

[1] 0.5

correct avg is 0.500