求助大神们，我按其他人提供的方法还是不行，这是为什么啊。数据就一列，一千行，程序是这样的：
a <- read.csv("D:\\data\\x1s.csv",header=T)
attach(a)
len=dim(a)
ax<-c()
ay<-c()
for(i in 1:100)
   { for(j in 1:len)
                   { if (a$x[j]<=i)  
                        ax[i]=ax[i]+1       
                  else next
                }
        ay[i]=ax[i]/len
        }
-----------------报错：
Error in if (a$x[j] < i) ax[i] = ax[i] + 1 else next :
  需要TRUE/FALSE值的地方不可以用缺少值
此外: Warning message:
In Ops.factor(a$x[j], i) : ‘<’ not meaningful for factors