Я хочу начать сортировку с последнего элемента, сначала в моей сортировке пузырьков в R. Как я могу это сделать?

Question

Напишите пузырьковую сортировку для R с вариацией. Эта пузырьковая сортировка должна начать сортировку с последнего элемента в первую очередь. Сначала опишите этот алгоритм своими словами.

x<-c(21,45,55,67,13,11,2,3,81,44)
example <- function(x){
  n<-length(x)
  for(j in length(x)-1):1){
    for(i in (length(x)-1)){
      if(x[i]>x[i+1]){
        temp<-x[i]
        x[i]<-x[i+1]
        x[i+1]<-temp
      }
    }
  }
  return(x)
}
res<-example(x)
res