Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité régulier
    Homme Profil pro alex hassan
    Développeur informatique
    Inscrit en
    février 2009
    Messages
    55
    Détails du profil
    Informations personnelles :
    Nom : Homme alex hassan
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : février 2009
    Messages : 55
    Points : 6
    Points
    6

    Par défaut try et tryCatch pour eviter une erreur

    Bnojour,
    je reviens vers vous pour un sujet de traitement d'erreurs, j'ai deux variable (x, y) dans une liste z, je veux appliquer une fonction johnsonfit aux deux éléments de la liste z, en cas d'erreur de johnsonfit je veux appliquer une autre méthode(bootstrap) sur le paramètre qui a généré l'erreur sans arrêter l'exécution est-ce que c'est possible avec un tryCatch ou try, ou vous avez une autre méthode pour résoudre ce problème, le code que j'ai testé:
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    for (i in 1:length(z)){ 
       testJohnson <- try(johnsonR(z[[i]], 0.00135)) 
       if(class(testJohnson) != "try-error"){ 
          a= testJohnson$lowup 
          b= testJohnson$median 
          c= testJohnson$highp 
       }else{ 
          prova <- bootstrap(z[i], nboot, theta) 
          a= quantile(prova$thetastar[1,],0.1) 
          b= quantile.central.MADe.BS=quantile(prova$thetastar[2,],0.5) 
          c= quantile.sup.MADe.BS=quantile(prova$thetastar[3,],0.9) 
       } 
    }
    ou
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    theta<-function(x){quantile(x,c(0.00135,0.5,0.99865))} 
    for(i in 1: length(z)){ 
       tryCatch({ 
                johnsonR(z[[i]], 0.00135) 
                a = johnsonR(z[[i]], 0.00135)$lowp 
                b = johnsonR(z[[i]], 0.00135)$median 
                c = johnsonR(z[[i]], 0.00135)$highp 
             } 
             , warning = function(war) { 
                 
                # warning handler picks up where error was generated 
                print(paste("MY_WARNING:  ",war)) 
             }, error = function(err) { 
                 
                # warning handler picks up where error was generated 
                print(paste("MY_ERROR:  ",err)) 
                prova <- bootstrap(z[i], nboot, theta) 
                a= quantile(prova$thetastar[1,],0.1) 
                b= quantile.central.MADe.BS=quantile(prova$thetastar[2,],0.5) 
                c= quantile.sup.MADe.BS=quantile(prova$thetastar[3,],0.9) 
             }, finally = {     
                print("bonjour") 
             })     
    }
    merci d'avance
    je peux envoyer les deux paramètres et le code de la fonction si nécessaire

  2. #2
    Membre expérimenté
    Homme Profil pro Vincent Chouraki
    MD, PhD, post-doc
    Inscrit en
    juillet 2010
    Messages
    185
    Détails du profil
    Informations personnelles :
    Nom : Homme Vincent Chouraki
    Localisation : Etats-Unis

    Informations professionnelles :
    Activité : MD, PhD, post-doc
    Secteur : Santé

    Informations forums :
    Inscription : juillet 2010
    Messages : 185
    Points : 564
    Points
    564

    Par défaut

    Bonjour,

    Je ne sais pas avec tryCatch mais avec try, il y a un argument "silent" que vous pouvez régler sur "TRUE" pour ne pas arrêter l'exécution :

    Code :
    1
    2
    3
    4
    # En supposant que l'objet toto n'existe pas
    toto
    try(toto)
    try(toto, silent=TRUE)
    Un petit conseil : pour tester la classe d'un objet, utilisez plutôt la fonction inherits. Un objet R peut avoir plusieurs classes, représentées par un vecteur de caractères. Si vous faites un test avec == dans if(), le test va porter seulement sur le premier élément du vecteur. inherits permet de faire le test sur l'ensemble du vecteur de classes :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    # Un data.frame banal
    test.custom <- data.frame(a=1:2, b=1:2)
    
    # Ajout d'une classe supplémentaire
    class(test.custom) <- c("data.frame", "classe.custom")
    
    # Test "classique"
    if(class(test.custom) == "classe.custom") {
     print("ma classe custom est trop classe!")
    } else {
     print("juste un pauvre data.frame -_-")
    }
    
    # Avec inherits
    if(inherits(test.custom, "classe.custom")) {
     print("ma classe custom est trop classe!")
    } else {
     print("juste un pauvre data.frame -_-")
    }
    HTH

    Vincent

  3. #3
    Invité régulier
    Homme Profil pro alex hassan
    Développeur informatique
    Inscrit en
    février 2009
    Messages
    55
    Détails du profil
    Informations personnelles :
    Nom : Homme alex hassan
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : février 2009
    Messages : 55
    Points : 6
    Points
    6

    Par défaut Bonjour vchouraki

    merci pour ta réponse et l'utile information(fonction inherits), je pense que j'ai mal exprimé mon problème, en effet j'arrive a tourner le code sans arrêter l’exécution avec la fonction tryCatch ou avec try (try est une version simplifiée de tryCatch),
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    theta<-function(x){quantile(x,c(0.00135,0.5,0.99865))}
    a= NULL
    b= NULL
    c= NULL
    pa= NULL
    for(i in 1: length(z)){
    	tryCatch({ 
    				johnsonR(z[[i]], 0.00135) 
    				a = c(a, johnsonR(z[[i]], 0.00135)$lowp) 
    				b = c(b, johnsonR(z[[i]], 0.00135)$median) 
    				c = c(c, johnsonR(z[[i]], 0.00135)$highp) 
    			} 
    			, warning = function(war) {
    			}, error = function(err) { 
                                       pa = c(pa, z[[i]]) 								
    			}, finally = {  
    
    			}) 	
    }
    mais je veux récupérer le composant z[[i]] qui a causé l'erreur (dans la même boucle ) pour le traiter avec l'autre méthode (bootstrap), pour cela j'ai ajouté dans le cas d'erreur une variable qui récupère les composant qui font objet d'erreur mais ça ne marche pas??
    si tu as une idée

    amicalement

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •