powered by
freqtab
mean.freqtab(x, ...)
var.freqtab
set.seed(2005) x <- round(rnorm(1000,100,10)) xscale <- 70:130 xtab <- freqtab(x,xscale) mean.freqtab(xtab); mean(x)
Run the code above in your browser using DataLab