set.seed(2005)
x1 <- round(rnorm(100,100,10))
x1scale <- 1:100
freqtab(x1,x1scale)
x2 <- round(rnorm(1000,100,10))
x2scale <- 70:130
freqtab(x2,x2scale)
x3scale <- ACTmath[,1]
x3 <- ACTmath[,2]
freqtab(x3,x3scale)
Run the code above in your browser using DataLab