数据结构
网络
关系数据库管理系统
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
服装设计
法律研究如何检查向量元素是否按升序或降序排列？
向量可以包含本质上递增或递减的值，或者它们也可以是随机的，这意味着较高的值可能出现在较低值之后，然后是较高的值。向量元素递增排列的一个例子是 1、2、3，而相反则是递减排列。我们可以通过检查向量所有值的差是否大于或等于零来检查向量是否按升序或降序排列，这可以通过使用 diff 函数来实现。
示例
> x1<-1:10 > x1
输出
[1] 1 2 3 4 5 6 7 8 9 10
> all(diff(x1)>=0)
输出
[1] TRUE
示例
> x2<-sample(1:10,50,replace=TRUE) > x2
输出
[1] 7 8 8 4 8 6 10 9 2 10 2 4 5 4 6 10 2 3 8 2 4 10 3 7 5 [26] 2 7 2 3 6 1 6 3 8 8 8 2 7 9 1 7 1 5 9 6 10 10 8 3 3
> all(diff(x2)>=0)
输出
[1] FALSE
示例
> x3<-10:1 > x3
输出
[1] 10 9 8 7 6 5 4 3 2 1
> all(diff(x3)>=0)
输出
[1] FALSE
> all(diff(x3)<=0)
输出
[1] TRUE
示例
> x4<-c(14,17,14,15,29,24,17,18,38) > x4
输出
[1] 14 17 14 15 29 24 17 18 38
> all(diff(x4)>=0)
输出
[1] FALSE
> all(diff(x4)<=0)
输出
[1] FALSE
示例
> x5<-sample(1:50,100,replace=TRUE) > x5
输出
[1] 23 43 7 16 7 41 21 48 3 28 8 45 37 12 39 43 20 50 33 16 17 35 44 9 29 [26] 27 44 46 15 29 15 17 4 17 8 36 50 32 50 17 33 34 30 31 40 16 22 32 39 21 [51] 40 39 16 31 38 28 3 22 42 31 48 39 15 14 45 15 3 20 50 23 33 39 10 20 41 [76] 49 20 1 40 19 7 1 7 12 16 23 50 3 44 27 40 12 31 12 47 44 18 29 34 32
> all(diff(x5)>=0)
输出
[1] FALSE
> all(diff(x5)<=0)
输出
[1] FALSE
示例
> x6<-sample(1:1000,100) > x6
输出
[1] 418 260 637 80 646 396 506 791 226 966 468 866 659 415 110 520 128 236 [19] 316 357 255 162 645 867 569 838 997 819 501 913 562 601 24 902 943 758 [37] 716 51 2 215 958 946 249 133 853 67 560 574 917 179 983 517 808 595 [55] 36 332 145 31 504 824 774 663 325 802 892 777 593 35 957 196 805 690 [73] 152 7 441 481 871 786 585 693 563 695 383 273 375 143 794 865 901 915 [91] 581 638 203 94 510 723 346 459 180 746
> all(diff(x6)>=0)
输出
[1] FALSE
> all(diff(x6)<=0)
输出
[1] FALSE
示例
> x7<-rnorm(50,2) > x7
输出
[1] 0.84261189 2.34635094 3.26053336 1.95924074 3.04214951 1.44615498 [7] 1.76529970 1.83573367 3.78949542 -0.50112590 1.05013127 1.69607013 [13] 1.45119098 2.33131602 1.01201612 2.28410496 0.64955391 2.59566288 [19] 2.08781663 2.22674640 -0.05599111 1.57843878 2.96839553 2.84797728 [25] 1.02880709 2.74873674 2.17837761 1.08775763 3.38554948 3.44496879 [31] 1.75175242 2.68978154 2.87401839 2.11086756 2.14189161 4.09328392 [37] 0.17228319 3.80599050 2.79396647 4.11371253 1.70642279 3.14290420 [43] 2.26725813 2.44773929 2.39364352 0.62493820 1.57672865 0.90599779 [49] 3.72155473 2.11842467
> all(diff(x7)>=0)
输出
[1] FALSE
示例
> x8<-rpois(100,5) > x8
输出
[1] 3 2 7 3 7 5 3 9 9 7 3 6 6 3 4 8 5 8 3 4 9 5 10 8 6 [26] 8 8 4 3 2 3 6 6 4 4 6 4 6 7 5 5 2 3 9 9 7 5 3 5 8 [51] 6 7 4 3 6 4 4 4 6 5 5 10 6 8 1 2 5 8 5 5 5 5 3 5 3 [76] 7 7 8 5 9 2 4 5 5 5 2 6 4 6 7 8 5 8 5 2 3 6 7 7 1
> all(diff(x8)<=0)
输出
[1] FALSE
> all(diff(x8)>=0)
输出
[1] FALSE
更新于: 2020年9月4日
760 次浏览
广告