R/tableTools.R

Defines functions table.nosort

# tableTools.R -- hopefully faster verison of counting 1-D table entries

table.nosort <- function(x) {

	s <- x[ ! duplicated(x)]
	wh <- match( x, s)
	cnt <- base::tabulate(wh)
	names(cnt) <- s
	cnt
}
robertdouglasmorrison/DuffyTools documentation built on April 13, 2025, 8:51 p.m.