Terminar una función basada en la aplicación anticipadamente (¿similar a romper?)

Question

Estoy buscando una manera de terminar una función de aplicar temprano en alguna condición. Utilizando un bucle, algo así como:

FDP_HCFA = function(FaultMatrix, TestCosts, GenerateNeighbors, RandomSeed) {  
    set.seed(RandomSeed) 

    ## number of tests, mind the summary column 
    nT = ncol(FaultMatrix) - 1 
    StartingSequence = sample(1:nT) 
    BestAPFD = APFD_C(StartingSequence, FaultMatrix, TestCosts) 
    BestPrioritization = StartingSequence 
    MakingProgress = TRUE 
    NumberOfIterations = 0 
    while(MakingProgress) { 
    BestPrioritizationBefore = BestPrioritization 
    AllCurrentNeighbors = GenerateNeighbors(BestPrioritization) 

    for(CurrentNeighbor in AllCurrentNeighbors) { 
     CurrentAPFD = APFD_C(CurrentNeighbor, FaultMatrix, TestCosts) 

     if(CurrentAPFD > BestAPFD) { 
     BestAPFD = CurrentAPFD 
     BestPrioritization = CurrentNeighbor    
     break 
     } 
    } 

    if(length(union(list(BestPrioritizationBefore), 
        list(BestPrioritization))) == 1) 
     MakingProgress = FALSE 

    NumberOfIterations = NumberOfIterations + 1 
    } 
} 

me gustaría volver a escribir esta función utilizando alguna derivación de apply. En particular, terminar la evaluación de la primera persona con una mejor forma física, evitando así el costo de considerar al resto de la población.

Answer 1

Aparte de hacer que funcione su código de muestra * Creo que este es un caso claro en el que un ciclo es la opción correcta. Aunque R puede aplicar una función a un vector completo de variables [EDITAR: pero debe decidir cuáles son antes de aplicar], en este caso utilizaría un bucle while para evitar el costo de ejecutar repeticiones innecesarias. Advertencia: Sé que for bucles se han comparado favorablemente con apply en las pruebas de tiempo, pero no he visto una prueba similar para while. Vea algunas de las opciones en http://cran.r-project.org/doc/manuals/R-lang.html#Control-structures.

while (*statement1*) *statement2* 

---

Answer 2

tengo por cierto que no se sabe muy captar la familia apply y su propósito. Al contrario de la idea general, son no el equivalente de cualquier for -loop. Se puede decir que la mayoría de las bifurcaciones for son equivalentes a apply, pero esa es otra cuestión.

Apply hace exactamente lo que dice: aplica una función secuencialmente en varios argumentos similares y devuelve el resultado. Por lo tanto, por definición no puede salir de una aplicación. Ya no estás operando en el entorno global, por lo que en principio no puedes mantener contadores globales, verificar después de cada ejecución alguna condición y adaptar el ciclo. Puede acceder al entorno global e incluso cambiar variables usando assign o <<-, pero esto es bastante peligroso.

Para entender la diferencia, no lea apply(1:3,afunc) como for(i in 1:3) afunc(i), sino como

afunc(1) 
afunc(2) 
afunc(3) 

en una declaración (bloque). Eso refleja mejor lo que estás haciendo exactamente. Un equivalente para break en un apply simplemente no tiene sentido, ya que es más un bloque de código que un bucle.

Answer 3

También estaba buscando una manera de salir temprano de un bucle basado en la aplicación, y encontré este hilo.

A pesar de que algunas personas afirman que se aplican deben ser considerados como "código de bloque" en lugar de un "bucle", sigo pensando que sería útil tener una posibilidad de salir de ella. La razón es que las funciones basadas en aplicar parecen ejecutar mucho más rápido, algo así como 10-100 veces más rápido que un bucle for. Muchas veces He ejecutado fragmentos simples en bucles que no se hacen después de más de unos minutos, mientras que la aplicación parece obtener el mismo trabajo en cuestión de segundos.