R code for frequency counting

myFreq<-function(x, K)

{

n<-length(x);

xmin<-min(x); xmax<-max(x);

intSize<-(xmax-xmin)/K;

freqTable<-matrix(0,1,K);

for(i in 1:n)

{

##To find out which interval x[i] falls into

whichI<-floor((x[i]-xmin)/intSize+1);

if(whichI>K) { freqTable[K]<-freqTable[K]+1; next;}

freqTable[whichI] <- freqTable[whichI] + 1;

}

return(freqTable);

}

x<-c(3,1,5,20,18,11,7,6);

myFreq(x,2)

x<-c(3,1,5,20,18,11,1,7,6,33,28.1,21.9,15,11,9,25,29,30.5,10,14,15.1,17.5,22.4,25.9, 4.5, 2.1,35,0);

myFreq(x,7)