function(R, cr)
{
	n <- length(cr)
	cr <- sort(cr)
	breaks <- quantile(R, c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1))
	t <- 0
	j <- 1
	Expected <- 0.1 * n
	for(i in 2:11) {
		Observed <- 0
		while((breaks[i] > cr[j]) && (j <= n)) {
			Observed <- Observed + 1
			j <- j + 1
		}
		t <- t + (((Observed - Expected) * (Observed - Expected))/Expected)
	}
	p <- 1 - pchisq(t, 9)
	print("p.value of CHI2 TEST")
	return(p)
}
