菜鸟求助。r语言用冒泡排序法实现对100个随机数的排序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

a<-runif(100,0,100)
i<-1
j<-1
for(i in 1:100)
{
for(j in 1:100-i)
if(a[i]>a[j]) # 到这一步就显示参数长度为0是怎么回事啊。。谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：冒泡排序法 随机数 R语言

错误在这里：for(j in 1:100-i)  
1:100-i  例如1:100-5  
[1] -4 -3 -2 -1  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19
[25] 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
[49] 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
[73] 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91
[97] 92 93 94 95

所以（ j in 1:100-i）会出现错误已改成（j in 1：（100-i))

统计R浪人 发表于 2013-10-11 16:21
错误在这里：for(j in 1:100-i)  
1:100-i  例如1:100-5  
[1] -4 -3 -2 -1  0  1  2  3  4  5  6  7  8  ...

> a<-runif(100,0,100)
> i<-1
> j<-1
> for(i in 1:100)
+  {
+   for(j in 1:(100-i))
+   if(a[j]>a[j+1])   
+   temp=a[j]
+   a[j]=a[j+1]
+   a[j+1]=temp
+   j=j+1
+  }  
Error in if (a[j] > a[j + 1]) temp = a[j] : argument is of length zero
>
还是会出现错误提示。谢谢再次解答

小洋仔 发表于 2013-10-11 21:39
> a i j for(i in 1:100)
+  {
+   for(j in 1:(100-i))

可以参考这里，有各种语言的冒泡法。
http://rosettacode.org/wiki/Sorting_algorithms/Bubble_sort

小洋仔 发表于 2013-10-11 21:39
> a i j for(i in 1:100)
+  {
+   for(j in 1:(100-i))

把 （i in 1：100）改成 （i in 1：99）就可以了

我可以加你扣扣吗？我是中南大学研一的，老师最近让我学习r语言，我已经掌握理论了，实践操作才起步。这是我扣扣727060307

#之前写过一个
bubble <- function(y){
for(i in 1:(length(y)-1)){
   for(j in 1:(length(y)-1)){
     if(y[j]<y[j+1]){
        t=y[j];
        y[j]=y[j+1];
        y[j+1]=t;
       }
     }
   }
  y
}