---------- Forwarded message ---------- From: Jose Betancourt Bethencourt <betans...@gmail.com> Date: Fri, 25 Feb 2022 13:38:44 -0500 Subject: colores de los plots To: r-help-es <r-help-es@r-project.org>
Estimados En este script quisieramos poder manejar los colores de los plots plot(model) y plot(example1) y no vemos como se puede hacer Por lo que apreciariamos su ayuda NO RECIBIMOS RESPUESTA saludos cordiales. José rm(list=ls(all=TRUE)) library(sets) sets_options("universe", seq(1, 45, 1)) #VARIABLES no cierra variables <- set( temp= fuzzy_partition(varnames = c(normal= 36.5, moderada= 37.5, alta= 38, muyalta=39), sd = 0.2), disnea = fuzzy_partition(varnames = c(no = 0, poca = 20,mucha=40),sd=2.5), gusto = fuzzy_partition(varnames = c(no = 0, poca = 30,mucha=40),sd=2.5), garganta = fuzzy_partition(varnames = c(no = 0, poca = 25,mucha=40),sd=2.5), severidad = fuzzy_partition(varnames = c(baja = 10, media = 20,alta=40), FUN = fuzzy_cone, radius = 10) ) #RULES rules <- set( fuzzy_rule(temp %is% muyalta && disnea%is% mucha && gusto%is%mucha&& garganta%is%mucha, severidad %is% alta), fuzzy_rule(temp %is% muyalta&& disnea%is% mucha, severidad %is% alta), fuzzy_rule(temp %is% normal && disnea%is% no && gusto%is%no&& garganta%is%no, severidad %is% baja), fuzzy_rule(temp %is% normal && disnea%is% no, severidad %is% baja), fuzzy_rule(temp %is% moderada && disnea%is% poca && gusto%is%poca&& garganta%is%poca, severidad %is% media), fuzzy_rule(temp %is% moderada && disnea%is% poca, severidad %is% media) ) model <- fuzzy_system(variables, rules) print(model) plot(model) hacer========================= example.1 <- fuzzy_inference(model, list(temp = 37, disnea=40,garganta=40,gusto=40)) gset_defuzzify(example.1, "centroid") # NaN plot(example.1) example.2 <- fuzzy_inference(model, list(Edad = 70, IMC=30,Tas=140, tabaquismo= 40, glicemia=140)) gset_defuzzify(example.2, "centroid") # NaN plot(example.2) example.3 <- fuzzy_inference(model, list(Edad = 75, IMC=30,Tas=140, tabaquismo= 40, glicemia=150)) gset_defuzzify(example.3, "centroid") # NaN plot(example.3) sets_options("universe", NULL) -- Dr. Jose A. Betancourt Bethencourt Universidad de Ciencias Medicas Carlos j. Finlay -- Dr. Jose A. Betancourt Bethencourt Universidad de Ciencias Medicas Carlos j. Finlay _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es