Ускорение функции, которая использует который внутри вызова 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 функция в пакете дисмо.