Ich habe zwei Vektore undg. Ich möchte für jedes Element in wissene der prozentuale Anteil der Elemente ing die sind kleiner. Eine Möglichkeit, dies in R zu implementieren, ist:

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)

Mit große odergDies dauert sehr lange. Wie kann ich diesen Code ändern oder anpassen, um die Ausführung zu beschleunigen?

Beachten Sie dasmf Die obige Funktion basiert auf dem Code vonmess Funktion im dismo Paket.