Mam dwa wektorye ig. Chcę wiedzieć o każdym elemenciee procent elementów wg które są mniejsze. Jednym ze sposobów wdrożenia tego w R jest:

set.seed(21)
e <- rnorm(1e4)
g <- rnorm(1e4)
mf <- function(p,v) {100*length(which(v<=p))/length(v)}
mf.out <- sapply(X=e, FUN=mf, v=g)

Z dużyme lubg, uruchomienie zajmuje dużo czasu. Jak mogę zmienić lub dostosować ten kod, aby przyspieszyć działanie?

Zanotujmf powyższa funkcja jest oparta na kodzie zmess funkcja w pakiecie dismo.