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....@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@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > -- Saludos, Carlos Ortega www.qualityexcellence.es [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es