pread in the data is computed with the standard deviation or sd() in R.
# Spread data % > % group_by(teamID) % > % summarise(sd_at_bat_league = sd(HR))
