# TODO: Add comment
# 
# Author: E.Korsching 10.9.2009
###############################################################################

category.basics <- function(x){
	#x: vector with numbers - denoting category elements
	
	#ini
	len <- length(x)
	
	#
	x.uni <- unique(x)[order(unique(x))] # ordered
	n.cat <- length(x.uni)
	
	cat.data <- as.data.frame(matrix(0,n.cat,2))
	names(cat.data) <- c("categories","population")
	cat.data[,1] <- x.uni
	
	for(i in 1:n.cat){
		cat.data[i,2] <- length(x[x==x.uni[i]])
	}
	
	return(cat.data)
}