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
请注明：姓名-公司-职位
以便审核进群资格，未注明则拒绝
jiulm 发表于 2015-5-7 15:31 mf1
zhangzhangmen 发表于 2015-5-7 16:19 mf1
zhangzhangmen 发表于 2015-5-7 21:11 额，上面那段代码还是有问题的，i
xucaifeng66 发表于 2015-5-8 10:09 能问下这样做的目的是什么吗？？？
zhangzhangmen 发表于 2015-5-8 10:14 对数据进行排序。其实可以直接用sort函数就实现了，楼主估计是用来练习编程的。
xucaifeng66 发表于 2015-5-8 10:18 那还要再加些参数啊，从小到大再排一次
zhangzhangmen 发表于 2015-5-8 10:25 这个就是从小到大排序的，如果想把逆序排列也加进去，那就再加一个参数，指定是逆序排，还是顺序排。
xucaifeng66 发表于 2015-5-8 10:34 好吧，不过我运行出来的结果是从大到小排的，而且对数据还是有要求的，if(a
zhangzhangmen 发表于 2015-5-8 10:37 这里代码显示有问题，实际是if(a【i】
扫码加好友，拉您进群
全部版块
我的主页
收藏
