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.