nassimhaddad · December 16, 2013 11:28
diff --git a/cut_equal.R b/cut_equal.R
 cut_equal <- function(x, n = 3){
  q <- quantile(x, prob= seq(0,1,length.out = n+1 ))

  cut(x,
      breaks = as.numeric(q), 
      include.lowest=TRUE, labels = 1:n)
 }
	cut_equal <- function(x, n = 3){
	q <- quantile(x, prob= seq(0,1,length.out = n+1 ))

	cut(x,
	breaks = as.numeric(q),
	include.lowest=TRUE, labels = 1:n)
	}