# TODO: Add comment
# 
# Author: E.Korsching Sep 11, 2013
###############################################################################


count.repeats.int <- function(x){
	# expected: integer [+0-] number vector or matrix
	# return: named vector of counts between min and max , integer steps =1,
	#  of the given numbers
	x <- as.vector(x)	# matrix to vector
	x <- x[order(x)]	# order vector
	max.x <- max(x, na.rm=T)
	min.x <- min(x, na.rm=T)
	unique.x <- unique(x)
	lux <- length(unique.x)
	#
	erg <- vector("numeric",length=lux)
	names(erg) <- unique.x
	j <- 1
	for(i in unique.x){
		erg[j]<- sum(x==i, na.rm=T)
		j <- j+1
	}
	return(erg)
}


count.repeats.int(c(1,3,4,5,9,9,1,11,-1,0,0,1))