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