The order function [🇷 for BE/BA]

posted by Helmut Homepage – Vienna, Austria, 2024-03-24 22:12 (26 d 13:45 ago) – Posting: # 23920
Views: 1,540

Hi ElMaestro,

❝ Man, I never looked at the rank function until now. But it seems to be the important distinction between rank and order that answers my question.


Yep. Don’t know what you want to achieve, but:

L            <- c(0.000000, 5161.096198, 18218.849691, 24977.065020,
                  108495.506990, 114018.413824,  459809.038038, 8691576.342850,
                  9917785.333365, 6694756.609860)
df           <- data.frame(L = L, rk = rank(L))
names(df)[2] <- "rank(L)" # cosmetics

print(df)
             L rank(L)
1        0.000       1
2     5161.096       2
3    18218.850       3
4    24977.065       4
5   108495.507       5
6   114018.414       6
7   459809.038       7
8  8691576.343       9
9  9917785.333      10
10 6694756.610       8


print(df[with(df, order(L)), ])
             L rank(L)
1        0.000       1
2     5161.096       2
3    18218.850       3
4    24977.065       4
5   108495.507       5
6   114018.414       6
7   459809.038       7
10 6694756.610       8
8  8691576.343       9
9  9917785.333      10


print(df[with(df, order(rank(L))), ]) # same
             L rank(L)
1        0.000       1
2     5161.096       2
3    18218.850       3
4    24977.065       4
5   108495.507       5
6   114018.414       6
7   459809.038       7
10 6694756.610       8
8  8691576.343       9
9  9917785.333      10


If you simply want to order the L vector, use:

L <- L[order(L)]


Dif-tor heh smusma 🖖🏼 Довге життя Україна! [image]
Helmut Schütz
[image]

The quality of responses received is directly proportional to the quality of the question asked. 🚮
Science Quotes

Complete thread:

UA Flag
Activity
 Admin contact
22,988 posts in 4,825 threads, 1,657 registered users;
102 visitors (0 registered, 102 guests [including 9 identified bots]).
Forum time: 12:58 CEST (Europe/Vienna)

The whole purpose of education is
to turn mirrors into windows.    Sydney J. Harris

The Bioequivalence and Bioavailability Forum is hosted by
BEBAC Ing. Helmut Schütz
HTML5