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