在1000个数中取100个,将间隔大于k的数次数累加,在条件的判断上出现问题。
代码:
a<-sample(1:1000,size=100)
b<-sort(a)
k<-2
n<-1000/k
for(i in 999)
if((b[i+1]-b)>k)
{
n<-n+k;
}
测试结果:
> a<-sample(1:1000,size=100)
> b<-sort(a)
> k<-2
> n<-1000/k
> for(i in 999)
+ if((b[i+1]-b[i])>k)
+ {
+ n<-n+k;
+ }
Error in if ((b[i + 1] - b[i]) > k) { :
需要TRUE/FALSE值的地方不可以用缺少值