r语言小白，请大家帮我看看哪里出了问题？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

mf1<-function(a){

n<-length(a)

for(i in 2:n){

   a<-mf2(a,i)

  }

return(a)

}

mf2<-function(a,i){

while(i>=2){

   if(a<a[i-1]){

     tmp<-a[i-1]

     a[i-1]<-a

     a<-tmp

     i<-i-1

    }

  }

}

    

> a<-5:1

  

> a

  

[1] 5 4 3 2 1

  

> mf1(a)

  

Error  in if (a < a[i - 1]) { : argument is of length zero

  

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 function return Error

jiulm 发表于 2015-5-7 15:31
mf1

没懂你要干什么 而且你的代码有错误吧 mf2里面的if后面少了东西

mf1<-function(a){       
n<-length(a)
for(i in 2:n){
  while(i>=2){
    if(a[i]<a[i-1]){
      tmp<-a[i-1]
      a[i-1]<-a[i]
      a[i]<-tmp
      i<-i-1
    }
  }
}
return(a)
}

是要这样的结果吗
> a<-5:1
> mf1(a)
[1] 1 2 3 4 5

zhangzhangmen 发表于 2015-5-7 16:19
mf1

是的，谢谢

额，上面那段代码还是有问题的，i<-i-1的位置不对，不能放在if语句里面。应该是：
mf1<-function(a){        
n<-length(a)
for(i in 2:n){
  while(i>=2){
    if(a<a[i-1]){
      tmp<-a[i-1]
      a[i-1]<-a
      a<-tmp
    }
    i<-i-1
  }
}
return(a)
}

或者，如果像你那样把mf1和mf2分开写，那就是：
mf1<-function(a)
{        
        n<-length(a)
        for(i in 2:n) a<-mf2(a,i)
        return(a)
}

mf2<-function(a,i)
{
        while(i>=2)
        {
                if(a<a[i-1])
                {
                      tmp<-a[i-1]
                      a[i-1]<-a
                      a<-tmp
                    }
                i<-i-1
          }
        return(a)
}

zhangzhangmen 发表于 2015-5-7 21:11
额，上面那段代码还是有问题的，i

不知道咋回事，显示出来的代码和我打的代码有点不一样，而且改不过来。if语句那一块是a【i】，而不是a。

zhangzhangmen 发表于 2015-5-7 21:11
额，上面那段代码还是有问题的，i

果然是大牛

能问下这样做的目的是什么吗？？？

xucaifeng66 发表于 2015-5-8 10:09
能问下这样做的目的是什么吗？？？

对数据进行排序。其实可以直接用sort函数就实现了，楼主估计是用来练习编程的。

zhangzhangmen 发表于 2015-5-8 10:14
对数据进行排序。其实可以直接用sort函数就实现了，楼主估计是用来练习编程的。

那还要再加些参数啊，从小到大再排一次