xtab <- as.freqtab(ACTmath[, 1:2])
descript(xtab)
mean(xtab)
set.seed(2008)
y <- round(rnorm(100, 100, 10))
ytab <- freqtab(y, xscale = 70:130)
min(y); min(ytab)
max(y); max(ytab)
cov.freqtab(ytab); var(y)
ny <- freqtab(x = KBneat$y[, 1], xscale = 0:36,
v = KBneat$y[, 2], vscale = 0:12)
cov.freqtab(ny); cov(KBneat$y[, 1], KBneat$y[, 2])
Run the code above in your browser using DataLab