Ускорение функции, которая использует который внутри вызова Spply в R

У меня два вектораe а такжеg, Я хочу знать для каждого элемента вe процент элементов вg которые меньше. Один из способов реализовать это в R:

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)

С большимe или жеgЭто займет много времени для запуска. Как я могу изменить или адаптировать этот код, чтобы он работал быстрее?

Обратите вниманиеmf Функция выше основана на коде изmess функция в пакете дисмо.