求助大神们,我按其他人提供的方法还是不行,这是为什么啊。数据就一列,一千行,程序是这样的:
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