Modérateur : Groupe des modérateurs
Code : Tout sélectionner
mat <- replicate(20, c(0, sort(runif(9)), 1))
t(mat)
Code : Tout sélectionner
mapply(
ord,
X,
as.data.frame(t(F))
)
Code : Tout sélectionner
purrr::map2(X, as.data.frame(t(F)), ord)
Code : Tout sélectionner
rowSums(F < X)
library(microbenchmark)
microbenchmark(map2(X, as.data.frame(t(F)), ord),
rowSums(F < X),
mapply(ord, X, as.data.frame(t(F))), times = 1e3)
Unit: microseconds
expr min lq mean median uq max neval
map2(X, as.data.frame(t(F)), ord) 157.448 164.244 178.994001 166.887 173.684 2441.378 1000
rowSums(F < X) 3.776 4.532 5.979415 6.042 6.796 30.962 1000
mapply(ord, X, as.data.frame(t(F))) 149.897 155.937 173.075962 158.580 165.755 1067.018 1000
Logez Maxime a écrit :Code : Tout sélectionner
rowSums(F < X)
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité