# NOT RUN {
A <- c(1,20,30)
E0 <- c(30,30,30)
#Independence
rank_var <- RNV.ranking.order.factor(A,"SC",E0)
all.equal(A^(1/3),rank_var$value) #TRUE
#Positive regulation
B <- 1/c(0.2,0.5,0.3)
rank_var <- RNV.ranking.order.factor(A,"RegPos",E0,B)
all.equal(1/B,rank_var$value) #TRUE
# }
Run the code above in your browser using DataLab