R 如何检查向量元素的顺序是否相同

我想检查向量的顺序是否相同。特别是最后两个要素

x<- c(0.817104, 0.241665, 0.040581, 0.022903, 0.019478, 0.019846)

isTRUE(all.equal(tail(x,2)[1],tail(x,2)[2]))

---

x可能会有一个较短的方法，但我有一个想法：取最后两个元素乘以10，直到得到一个>1的数字（我假设您要检查的所有条目是否相等，而不是以相同的顺序，而是使用
is.unsorted（all.ex）
@docendodiscimus好的，你的建议是什么？@Alexander my typos！
是。未排序（x）
@SIslam实际上我不是在找那个。我实际上是在找最后两个值是否按相同的顺序返回
TRUE
值。
n1 = x[-1] #the last one
n2 = x[-2] #the other

counter1 = 0
while (n1 <=1){
    n1 = n1*10
    counter1 = counter1 +1
   }