Displaying 1 result from an estimated 1 matches for "55times".
Did you mean:
5times
2003 Oct 29
0
rank function
...data))
for(i in 1:length(data)){
for(j in 1:length(data)){
if(data[i]<data[j]){
rank.data[j] <- rank.data[j] + 1
}
}
}
rank.data <- rank.data + 1
data
rank.data
rank(data)
##########################
I wrote out again because i wanted to decrease it to 55times for efficiency of calculation.
#########################
data<-sample(c(1:100),10)
test.data<-data
n<-length(data)
min.data<-1000
for(j in 1:10){
for(i in 1:n){
if(data[i]<min.data){
min.data <- data[i]
}}
rank.data[rank.data==min.data]<-j
data &a...