DEBSOURCES
Skip Quicknav
sources / r-cran-teachingdemos / 2.13-1 / R / dots.R
123456789
"dots" <- function(x,...){ sx <- sort(x) sy <- unlist(lapply(table(sx),seq)) plot(sx,sy, xlab=deparse(substitute(x)), ylab="Count",...) }