Exam Questions 6

#Declare the variable Three_Pointers_Made and conver it to a vector variable by adding c(3, 5, 6, 3, 7)

Three_Pointers_Made <- c(3, 5, 6, 3, 7)

#Declare the variable Three_Pointers_Attempted and conver it to a vector variable by adding c(9, 10, 8, 11, 12)

Three_Pointers_Attempted <- c(9, 10, 8, 11, 12)

# Calculate shooting percentage for each game
shooting_percentages <- (Three_Pointers_Made / Three_Pointers_Attempted) * 100
shooting_percentages

[1] 33.33333 50.00000 75.00000 27.27273 58.33333

# In this case the results are as follows

# Game 1 : 33.33333
# Game 2 : 50.00000
# Game 3 : 75.00000
# Game 4 : 27.27273
# Game 5 : 58.33333

# Calculate average shooting percentage
average_percentage <- mean(shooting_percentages)
average_percentage

[1] 48.78788

# In this case the average shooting percentage is 48.78788