index <- c(
101, 105, 116, 162, 194, 211, 263, 308, 361, 374,
375, 465, 509, 513, 571, 691, 785, 842, 966, 968,
1051, 1201, 1251, 1433, 1519, 1727, 1760, 1777, 1899, 1920,
1943, 2013, 2052, 2252, 2515, 2629, 2634, 2710, 2823, 2835,
2944, 3098, 3227, 3360, 3452, 3496, 3530, 3665, 3786, 3877
)
order <- c(
3, 33, 12, 1, 21, 15, 43, 49, 8, 6,
34, 25, 24, 35, 41, 9, 22, 50, 4, 48,
7, 14, 46, 10, 38, 32, 26, 18, 23, 45,
30, 16, 17, 20, 40, 47, 31, 37, 27, 11,
5, 44, 29, 19, 13, 36, 39, 42, 28, 2
)
d <- email[index, ][order, ]
identical(d, email50)
Run the code above in your browser using DataLab