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
