# NOT RUN {
x <- as.freqtab(ACTmath[, 1:2], drop = TRUE)
y <- as.freqtab(ACTmath[, c(1, 3)], drop = TRUE)
# Percentile ranks for the x scale
round(px(x), 3)
# Percentile ranks in y for x each score
round(px(x, y = y), 3)
# Cumulative frequency distribution for x
round(fx(x), 3)
# }
Run the code above in your browser using DataLab