2016-02-26 3 views
0

Я пытаюсь построить переменные «System» в графе в языке R. это лингвистическая переменная система. Я получил сообщение об ошибке: «Ошибка в plot.new(): слишком большие поля слишком велики», как я могу построить «систему»?Ошибка в plot.new(): поля слишком велики?

Вот мой код:

## 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

Откуда берутся функции 'sets_options()', 'fuzzy_system()' и т. Д.? – Stibu

+0

Я получаю ту же ошибку в RStudio, когда я пытаюсь построить что-то, и квадрат сюжета слишком мал - если я увеличиваю размеры моего квадрата участка, ошибка исчезнет. –

+0

Одним из вариантов является использование 'pdf()', 'png()' или подобных функций для создания большего холста сюжета и построения графика непосредственно в файл. – Mikko

ответ

0

Спасибо за ваши комментарии. Я только что добавил код ниже, теперь он работает!

png("p3_sa_para.png", 800, 600) 
    par(mfrow=c(1,2)) 
    plot(system, ylab="Beta",xlab="Iteration") 
    dev.off() 
Смежные вопросы