for循环出问题 求助！！感谢

老师让自己写个让数列从小到大的code

t<-integer(0)
selsort<-function(v){
  l=length(v)
  if(l==1){
    return(v)
  }else
    for(i in 1:l)
      if(v==min(v)){
        t<-c(t,v)
        v<-max(v)
      }
  if(length(t)==l){
    return(t)
  }else{
    return(selsort(v))
  }
}


输入selsort(c(3,5,6,4,6))
Error in if (v == min(v)) { : missing value where TRUE/FALSE needed

求解决 或者帮我写个从小到大的让我参考下。 刚学习R  循环有点晕。  谢谢

for循环里面不对吧
selsort<-function(v){
  l=length(v)
  t<-integer(l)
  if(l==1){
    return(v)
  }
  i=1;
  while(l>=1){
    t[i]<-min(v)
    v<-v[-which.min(v)]
    l<-l-1
    i<-i+1
  }
  return(t)
}

求帮助- -

偏个题，我感觉你们老师此举没必要，r中直接sort就好，如果要排序直接用C语言编写就好了

dinghui0222 发表于 2015-10-10 10:48
for循环里面不对吧
selsort

谢谢- -

hzx21th 发表于 2015-10-10 23:49
偏个题，我感觉你们老师此举没必要，r中直接sort就好，如果要排序直接用C语言编写就好了

- -恩啊  老师让练习下循环吧 然后比较下 自己写的和自带order sort差距