R/buildClassTable.R

In capwire: Estimates population size from non-invasive sampling

buildClassTable <- function(counts){
	
	u <- sort(unique(counts))
	
	class.table <- data.frame()
	for (i in 1:length(u)){
		tmp <- counts[counts == u[i]]
		tmp2 <- cbind(u[i], length(tmp))
		class.table <- rbind(class.table, tmp2)
	}
	colnames(class.table) <- c("capture.class", "No.Ind")
	return(class.table)

}