In-class activity #14

Three-point shooting percentage for each game

tp_att <- c(9, 10, 8, 11, 12)
tp_scr <- c(4, 5, 3, 6, 7)
tp_prc  <- tp_scr /  tp_att
tp_prc

## [1] 0.4444444 0.5000000 0.3750000 0.5454545 0.5833333

Average three-point shooting percentage for the five games

mean(tp_prc)

## [1] 0.4896465