这是我的编码
no=10;mu<-10;sigma1<-1;dat <- matrix(rnorm(no, mu,sigma1), ncol = 5);dat
rnk=apply(dat,1,rank);rnk
diffe=apply(dat,1,function(x)x[]-mu);diffe
我需要继续......如果该diffe值为正数，则为该数字分配 1，将 0 分配给零，将 -1 分配为负数sign。之后，多个 1/0/-1 与相应数字的排名为SR。例如，
no=10;mu<-10;sigma1<-1;dat <- matrix(rnorm(no, mu,sigma1), ncol = 5);dat
[,1] [,2] [,3] [,4] [,5]
[1,] 10.514413 10.123087 8.768467 10.926197 9.818231
[2,] 9.048713 9.814045 10.00000 9.641175 9.500561
rnk=apply(dat,1,rank);rnk
[,1] [,2]
[1,] 4 1
[2,] 3 4
[3,] 1 5
[4,] 5 3
[5,] 2 2
diffe=apply(dat,1,function(x)x[]-mu);diffe
[1,] 0.5144132 -0.9512866
[2,] 0.1230869 -0.1859549
[3,] -1.2315329 0.0000000
[4,] 0.9261974 -0.3588249
[5,] -0.1817694 -0.4994389
sign
[1,] 1 -1
[2,] 1 -1
[3,] -1 0
[4,] 1 -1
[5,] -1 -1
SR(rnk*符号)
第一个数字= 4*1+3*1+1*-1+5*1+2*-1 = 9
第二个数字= 1*-1+4*-1+5*0+3*-1+2*-1 = -10
谢谢..=]]