Examo 2

made <- c(18, 7, 6, 9, 10, 13)
attempted <- c(36, 23, 12, 18, 24, 22)

fg_pct <- made / attempted * 100
fg_pct

[1] 50.00000 30.43478 50.00000 50.00000 41.66667
[6] 59.09091

mean(fg_pct)

[1] 46.86539

made <- c(3, 5, 10, 6, 3, 7, 1)
attempted <- c(9, 10, 18, 12, 11, 12, 11)

game_pct <- made / attempted * 100
average_game_pct <- mean(game_pct)
overall_pct <- sum(made) / sum(attempted) * 100

game_pct

[1] 33.333333 50.000000 55.555556 50.000000
[5] 27.272727 58.333333  9.090909

average_game_pct

[1] 40.51227

overall_pct

[1] 42.16867

players <- data.frame(
  PlayerID = 1:5,
  Hits = c(112, 124, 121, 106, 140),
  AtBats = c(400, 450, 380, 500, 402),
  BB = c(50, 60, 19, 150, 55)
)

players$OBP <- (players$Hits + players$BB) /
               (players$AtBats + players$BB)

players

players[which.max(players$OBP), ]