关于向量的循环比较中的问题

yangsiyuan0

x [1] 1.03 1.85 0.74 1.82 1.14 1.65 1.92 1.01 1.12 0.90 1.40
y [1] 1.00 1.89 0.90 1.81 1.20 1.70 1.94 1.11 1.23 0.97 1.52
a=x-y [1]  0.01 -0.02 -0.03  0.03 -0.03 -0.06 -0.07 -0.10 -0.11 -0.12 -0.16 b [1] 0.01 0.03s=rep(0,length(b))
for(i in 1:length(b)){
  for(j in 1:length(a))
    if(b==abs(a[j])){
      s=s+1;      }
  

}
s[1] 1 2
这里是s【2】不是应该为3吗？我检验发现：
b[2]==abs(a[3])[1] FALSE          ——>这个比较为false导致了s【2】=1，可是为什么会不相等呢？？？？？？？b[2]==abs(a[4])[1] TRUE
新手，求各位指教啊？非常非常感谢！！

yangsiyuan0

#双样本秩和检验

rank=0;
a=x-y;
b=0;
k=1;
n=length(a)

a=a[order(abs(a))];
for(i in 1:n){
  if(a>0){
    rank=rank+i;
    b[k]=a;
    k=k+1;
  }
  
}


#统计与w+绝对值相同数出现的次数
s=rep(0,length(b))
for(i in 1:length(b)){
  for(j in 1:length(a))
    if(b==abs(a[j])){
      s=s+1;      }
  

}
for(i in 1:length(s))
rank=rank-(s-1)/s;

p=2*min(psignrank(rank,n),1-psignrank(rank,n))
cat("\nP值为：",p)

整个儿的程序是这样的