# generic frequency table:
set.seed(2005)
x <- round(rnorm(1000,100,10))
xscale <- 70:130
xtab <- freqtab(x,xscale)
# compare freqbump to freqavg:
xbump <- freqbump(xtab[,2])
xavg <- freqavg(xtab)
cbind(xtab,bump=round(xbump*sum(xtab[,2]),6),avg=xavg[,3])
Run the code above in your browser using DataLab