function(detectionmatrix, volume = 1)
{
	n <- ncol(detectionmatrix)
	patterncounter <- rep(0, 10)
	for(i in 1:n)
		for(j in 1:10)
			if(detectionmatrix[j, i] == volume) patterncounter[j] <- patterncounter[j] + 1
	print("HS IHS BT BB TT TB RT RB DT DB")
	return(patterncounter)
}
