R语言实现桶排序算法

问题：

R语言实现桶排序算法，对1000以内的若干个数进行排序。

代码：

tongSort<-function(v) { #桶排序
  maxn=1000  #待排序的数都小于1000
  b<-rep(0,maxn)
  for (i in 1:maxn) b[v[i]]=b[v[i]]+1
  
  for (i in 1:maxn) {
    while (b[i]) {
      cat(i," ")
      b[i]=b[i]-1
    }
  }
}
v<-c(5,7,3,36,28,10,6,7,50,28,666,28,4,28,36,28)
tongSort(v)