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))