abc <- function(x,n)
{
	vector <- c()

	max <- max(x)
	min <- min(x)
	p <- seq(from=min(x), to=max(x), length.out = n+1)


	for (i in x) {
		#print(i)
		for (j in 2:length(p)) {
			if(p[(j-1)] <= i && i <= p[j]){
				#print(sprintf("<%f,%f>", p[j-1], p[j]))
				vector <- c(vector, sprintf("(%f,%f)", p[j-1], p[j]))
			}
		}
	}

	return(vector)
}