[R-es] Como puedo reducir el tiempo de ejecución en la siguiente rutina

[Carlos Ortega]

Hola,

Mejor si pones un ejemplo de tu matriz y cuentas lo que quieres hacer...
El  enfoque puede ser muy diferente al que has planteado.

Gracias,
Calros Ortega
www.qualityexcellence.es

El dom, 13 dic 2020 a las 12:33, Carlos Santos (<carlossantos.csm using gmail.com>)
escribió:

> Buen dia,
>
> Tengo un problema cuando ejecuto la siguiente rutina, porque con una matriz
> muy grande el tiempo de ejecución se va a bastantes  horas.
>
> Cualquier idea para mejorarlo y reducir significativamente el tiempo,
> estaría muy agradecido
>
> Muchas gracias por vuestra ayuda
>
>
> #_____________________________________________________________________________________
>
> f5 <- function(x){data1 %>% filter(Clus.Multi.OPTIMO %in%
> c(EMISOR,RECEPTOR[x])) %>%
>     dplyr::select(1:numvar+1) %>% data.matrix() %>% CohenD()}
>
> #
>
> ______________________________________________________________________________________
>
> fila = 1
> rr = nrow(data2)
>
> repeat{
>     smc <-
>
> sum(data2[fila,((2+fila):(nrow(data2)+2))]==max(data2[fila,((2+fila):(nrow(data2)+2))]))
>     EMISOR <- data2[fila,1]$Var
>     RECEPTOR <-
>
> data2[which(as.vector(t(data2[fila,])[,1])==max(data2[fila,((2+fila):(nrow(data2)+2))]))-2,1]$Var
>
>     Rmax <- RECEPTOR[mclapply((1:smc),f5) %>% unlist() %>% which.max()]
>
>     data1$Clus.Multi.OPTIMO[which(data1$Clus.Multi.MAX ==
>  data2[fila,1]$Var)] <- Rmax
>     fila = fila + 1
>     if (fila == rr) {break}
> }
>
> <
> https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail
> >
> Libre
> de virus. www.avast.com
> <
> https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail
> >
> <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]