inst/examples/bucketSort1.R

In rscc: R Source Code Similarity Evaluation by Variable/Function Names

 bucketsort1<-function(x){
   
   # nie wiedzialam jak sobie poradzic, wiec przyjelam, ze bede zaokraglac
   # liczby do czterech miejsc po przecinku
   x_1<-round(x,digits=-4) 
   y<-x*(10^4) # robie tak, zeby dostac liczby calkowite
   k<-max(y) # jako k wybiram najwieksza z liczb
   s<-f(k,y) # stosuje funkcje z poprzedniego zadania
   v<-NULL # poczatkowy wektor wynikowy jest pusty
   for(i in 1:k)
      if (s[i]!=0){
         v<-c(v,rep(i,s[i]))
      }
   v<-v/(10^4) # dziele przez 10^4 bo na poczatku przez tyle pomnozylam
   v
}