set.seed(2005)
x1 <- round(rnorm(1000,100,10))
x1scale <- 70:130
freqtab(x1,x1scale)
x2 <- ACTmath[,2]
x2scale <- ACTmath[,1]
freqtab(x2,x2scale,addclass=TRUE)
xscale <- 0:36
vscale <- 0:12
freqtab(KBneat$x[,1],xscale,KBneat$x[,2],vscale)
Run the code above in your browser using DataLab