1、

> dat1 <- c(3, 1, 4, 7, 6)  ## 测试数据1， 未排序
> all(dat1 == sort(dat1))    ## dat1未排序， 判断原始向量和排序后的向量是否一致
[1] FALSE
> dat2 <- c(1, 3, 4, 6, 7)  ## 测试数据2， 已排序
> all(dat2 == sort(dat2))    ## 同上
[1] TRUE