EXAM 2

Question 5

#Field Goals Made: 
goals_made<-c(18, 7, 6, 9, 10, 13) 
#Field Goals Attempted: 
goals_attempted<-c(36, 23, 12, 18, 24, 22)
avg_game<-round(goals_made/goals_attempted,3)
avg_game

## [1] 0.500 0.304 0.500 0.500 0.417 0.591

avg_total<-round(sum(goals_made)/sum(goals_attempted),3)
avg_total

## [1] 0.467