Code: Alles auswählen
set.seed(42)
M <- matrix(sample(24)+100, 4)
R <- matrix(rank(M), nrow(M))
sapply(1:5, function(r) which(r==R, arr.ind = TRUE))
Code: Alles auswählen
set.seed(42)
M <- matrix(sample(24)+100, 4)
R <- matrix(rank(M), nrow(M))
sapply(1:5, function(r) which(r==R, arr.ind = TRUE))
Code: Alles auswählen
data("iris")
L <- list(1:2, 3:4)
lapply(L, function(l) head(iris)[l])