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