f<-function(x){
n=length(x)
for(i in 1:n){
for(j in (i+1):n){
if(x[j]<x[i])
{ z=x[i];x[i]=x[j];x[j]=z}
                 }
             }
x
}
> x=c(1,3,4,3,2,6)
> f(x)
错误于if (x[j] < x[i]) { : 需要TRUE/FALSE值的地方不可以用缺少值