2016-02-26 1 views
0

J'essaie de tracer des variables "System" dans un graphique en langage R. C'est un système variable linguistique. J'ai un message d'erreur: "Erreur dans plot.new(): les marges sont trop grandes" comment je peux tracer "système"?Erreur dans plot.new(): les marges sont-elles trop grandes?

Voici mon code:

## Setup the universe, the range of values that we will process. 
    sets_options("universe", seq(from = 0, to = 40, by = 0.1)) 

    ## Setup the Linguistic Variables for BMI, A1C blood pressure & underwriter rating. 
    variables <- 
     set(
     bmi = 
      fuzzy_partition(varnames = 
          c(under = 9.25, 
           fit = 21.75, 
           over = 27.5, 
           obese = 35), 
          sd = 3.0), 
     a1c = 
      fuzzy_partition(varnames = 
          c(l = 4, n = 5.25, h = 7), 
          FUN = fuzzy_cone, radius = 5), 
     rating = 
      fuzzy_partition(varnames = 
          c(DC = 10, ST = 5, PF = 1), 
          FUN = fuzzy_cone, radius = 5), 
     bp = 
      fuzzy_partition(varnames = 
          c(norm = 0, 
           pre = 10, 
           hyp = 20, 
           shyp = 30), 
          sd = 2.5) 
    ) 


    ## set up rules 
    rules <- 
     set(
     fuzzy_rule(bmi %is% under || bmi %is% obese || a1c %is% l, 
        rating %is% DC), 
     fuzzy_rule(bmi %is% over || a1c %is% n || bp %is% pre, 
        rating %is% ST), 
     fuzzy_rule(bmi %is% fit && a1c %is% n && bp %is% norm, 
        rating %is% PF) 
    ) 
    ## combine to a system 
    system <- fuzzy_system(variables, rules) 
    print(system) 

    plot(system) ## plots variables 
+0

D'où viennent les fonctions 'sets_options()', 'fuzzy_system()', etc. – Stibu

+0

Je reçois la même erreur dans RStudio quand j'essaie de tracer quelque chose et le quadrant de la parcelle est trop petit - si j'augmente les dimensions de mon quadrant, l'erreur disparaît. –

+0

Une option consiste à utiliser 'pdf()', 'png()' ou des fonctions similaires pour créer un canevas de tracé plus grand et tracer directement dans un fichier. – Mikko

Répondre

0

Merci pour vos commentaires. Je viens d'ajouter du code ci-dessous, ça marche maintenant!

png("p3_sa_para.png", 800, 600) 
    par(mfrow=c(1,2)) 
    plot(system, ylab="Beta",xlab="Iteration") 
    dev.off()