Función de aceleración que utiliza la que dentro de una llamada de solicitud en R
Tengo dos vectorese yg. Quiero saber para cada elemento ene el porcentaje de elementos eng que son mas pequeñas Una forma de implementar esto en R es:
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)
Con grane og, esto lleva mucho tiempo para correr. ¿Cómo puedo cambiar o adaptar este código para que esto funcione más rápido?
Nota lamf función anterior se basa en el código de lamess Funciona en el paquete dismo.