데이터 계급 구분 in R

#### Data Classification
classif_dat = function(data_vec)
{
	data_vec = as.vector(data_vec)
	
	len_data = length(data_vec)
	num_of_class = ceiling(1 + 3.3  * log10(dim(dat)[1]))		# Number of Classes
	
	classified_data = c();
	
	
	
	for (i in 1:len_data)
	{
		for (j in 1:num_of_class)
		{
			
			if ( data_vec[i] <= quantile(data_vec, j/num_of_class) )
			{
				classified_data[i] = j;
				break;
			}
		}
	}

	
	return(classified_data)
}