Estimados
En este script quisieramos poder manejar los colores de los plots y no
vemos como se puede hacer
Por lo que apreciariamos su ayuda
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
---------- Forwarded message ----------
From: Jose Betancourt Bethencourt <betanster en gmail.com>
Date: Fri, 25 Feb 2022 13:38:44 -0500
Subject: colores de los plots
To: r-help-es <r-help-es en 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