R/dots.R

"dots" <-
function(x,...){
	
	sx <- sort(x)
	sy <- unlist(lapply(table(sx),seq))
	plot(sx,sy, xlab=deparse(substitute(x)), ylab="Count",...)
	
}

Try the TeachingDemos package in your browser

Any scripts or data that you put into this service are public.

TeachingDemos documentation built on May 29, 2024, 5:59 a.m.