L'astuce du jour : suivre l'évolution d'une grosse boucle

En général, un utilisateur de R doit privilégier les commandes sapply, lapply, apply, tapply et mapply pour faire tourner une commande plusieurs fois. Néanmoins, lorsque l'on débute il est souvent plus simple de faire tourner des boucles. Je dirai même que quelques fois, l'usage de boucles semble obligatoire. Le problème est que R n'est pas toujours très performant pour ce qui est des boucles, ce qui peut se traduire par des programme tournant de longues heures. Or lorsqu'une boucle est lancée, R est totalement muet sur la progression de celle-ci. Voici donc un petit truc pour afficher à chaque réplication le numéro de la réplication ainsi que la date et l'heure de cette dernière.

Code:


R <- 10000
for(i in 1:R)   {
        #Pour suivre les progres de la boucle
        print(paste(i,date(),sep=" : "))
   flush.console()

        # Le contenu de la boucle. Par exemple :
        if(i==1) print(paste(i, "mouton", sep=" "))
        else print(paste(i, "moutons", sep=" "))
        }