# Para transformar la base de datos
library(readr)
#file.choose()
diabetes2 <- read.csv("C:\\Users\\FAUSTO\\Desktop\\metods cuantitativos\\parcial 2\\arbol de decision diabetes\\cuantitativos\\diabetes2.txt", sep=";")
View(diabetes2)
# diabetes2Las enfermedades crónicas constituyen un problema de salud en las sociedades contemporáneas. Según Nobel en 1991, citado por Avellaneda y otros,1,2 el aumento sostenido de la incidencia y prevalencia de las enfermedades crónicas a nivel mundial desde el pasado siglo, especialmente en países con altos indicadores de salud y desarrollo, su carácter complejo y multifactorial, su impacto sobre poblaciones vulnerables y el hecho de que producen una limitación importante en la calidad de vida y el estado funcional de las personas que las padecen, las ha convertido en un verdadero reto desde lo económico, lo político, lo social y lo personal.
La Diabetes Mellitus es una enfermedad crónica donde el paciente experimenta dificultades para metabolizar carbohidratos, proteínas y grasas y que se debe a la insuficiente secreción o resistencia de insulina. La diabetes es una enfermedad en la que el cuerpo no produce o no utiliza correctamente la insulina (Taylor, 2007). La causa de la diabetes continúa siendo un misterio, aunque tanto la genética, factores ambientales, la obesidad y la falta de ejercicio parecen desempeñar roles esenciales (Asociación Americana de Diabetes, 2008).
La diabetes se relaciona, fundamentalmente, con dos grupos de complicaciones: unas son las que afectan a los vasos sanguÃneos de pequeño tamaño (complicaciones crónicas microvasculares) del ojo (retinopatÃa) de las terminaciones nerviosas (neuropatÃa), del riñón (nefropatÃa) y que vienen determinadas en mayor medida por el grado de control glucémico, mientras que el desarrollo de lesiones en los grandes vasos (complicaciones macrovasculares), afectan al corazón (cardiopatÃa isquémica), a las extremidades inferiores (claudicación intermitente) y producen enfermedades cerebrovasculares.
La prevalencia de este tipo de enfermedades afectan el proceso de envejecimiento de una persona y se deben en gran medida a factores de riesgo: consumo de tabaco, uso nocivo del alcohol, inactividad fÃsica, obesidad, perfil lipÃdico alterado y dieta inadecuada. Sin embargo, la modificación de hábitos no saludables y el control de los factores de riesgo pueden, en la mayorÃa de los casos, evitar las manifestaciones clÃnicas de algunas enfermedades crónicas e impedir complicaciones que, sin control, pueden causar discapacidades que tienden a disminuir la calidad de vida de las personas mayores. Por ello, la necesidad de la detección temprana, tratamiento y rehabilitación de los que padecen enfermedades no transmisibles y de planificar programas de acciones preventivas para esta población, que favorezcan su continuo desarrollo y mejore su calidad de vida.
En este estudio, se seleccionan un total de 952 participantes de 18 años o más, de los cuales 580 son hombres y 372 son mujeres. Se pidé a los participantes que respondieran un cuestionario que se muestra en la Tabla 1, que fue preparado por ellos mismos en función de las limitaciones que podrán conducir a la diabetes. Para verificar la validez del modelo, se realizaron los mismos experimentos en otra base de datos llamada PIMA Indian Diabetes Database. Edad: La edad de las personas diagnosticadas. Tipo:Cuantitativa-continua
Género: Indica si las personas son hombres o mujeres. Tipo:Cualitativa-nominal
Historia familiar con diabetes: Indica si algún familiar ha sido diagnosticado con diabetes en el pasado. Tipo:Cualitativa-nominal
Diagnóstico de presión arterial alta: Indica si la persona tiene presión arterial alta. Tipo:Cualitativa-nominal
Actividad física : Describe si la persona realiza actividades físicas como caminar, correr o estar activo. Tipo:Cualitativa-nominal
Índice de Masa Corporal(IMC): Un número calculado a partir del peso y la estatura de la persona. Tipo:Cuantitativa-continua
Hábito de fumar: Indica si la persona fuma y su posible relación con la diabetes. Tipo:Cualitativa-nominal
Consumo de alcohol: Registro del consumo de alcohol por parte de las personas diagnosticadas con diabetes. Tipo:Cualitativa-nominal
Horas de sueño: La cantidad de horas que la persona duerme. Tipo:Cuantitativa-continua
Horas de sueño profundo: Horas de sueño sin interrupciones o incomodidades. Tipo:Cuantitativa-continua
Ingesta regular de medicamentos: Si la persona toma medicamentos de manera regular. Tipo:Cualitativa-nominal
Consumo de comida chatarra: Indica si la persona consume comida chatarra. Tipo:Cualitativa-ordinal
Nivel de estrés: Evaluación del nivel de estrés que experimentan las personas. Tipo:Cualitativa-ordinal
Nivel de presión arterial: Indica el nivel de presión arterial que tienen las personas. Tipo:Cualitativa-ordinal
Número de embarazos: Para mujeres, el número de embarazos que han tenido. Tipo:Cuantitativa-discreta
Diabetes gestacional: Indica si la persona ha tenido diabetes gestacional. Tipo:Cualitativa-nomial
Frecuencia de micción: Determina con qué frecuencia las personas van al baño a orinar. Tipo:Cualitativa-ordinal
Diabetes (diagnóstico): Indica si la persona está diagnosticada con diabetes o no. Tipo:Cualitativa-nominal
classes<-sapply(diabetes2,class);classes## Age Gender Family_Diabetes highBP
## "character" "character" "character" "character"
## PhysicallyActive BMI Smoking Alcohol
## "character" "integer" "character" "character"
## Sleep SoundSleep RegularMedicine JunkFood
## "integer" "integer" "character" "character"
## Stress BPLevel Pregancies Pdiabetes
## "character" "character" "integer" "character"
## UriationFreq Diabetic
## "character" "character"edadfactor<-factor(diabetes2$Age)
levels(edadfactor)=c("40-49","50-59","60 or older","less than 40")
class(edadfactor)## [1] "factor"#edadfactorgenerofactor<-factor(diabetes2$Gender)
levels(generofactor)=c("Male","Female")
class(generofactor)## [1] "factor"#generofactorfamiliadiabetes<-factor(diabetes2$Family_Diabetes)
levels(familiadiabetes)=c("yes","no")
class(familiadiabetes)## [1] "factor"#familiadiabeteshighBP<-factor(diabetes2$highBP)
levels(highBP)=c("yes","no")
class(highBP)## [1] "factor"#highBPPhysicallyActive<-factor(diabetes2$PhysicallyActive)
levels(PhysicallyActive)=c("less than half an hr ","more than half an hr","none
","one hr or more")
class(PhysicallyActive)## [1] "factor"#PhysicallyActivefumafactor<-factor(diabetes2$Smoking)
levels(fumafactor)=c("yes","no")
class(fumafactor)## [1] "factor"#fumafactoralcolfactor<-factor(diabetes2$Alcohol)
levels(alcolfactor)=c("yes","no")
class(alcolfactor)## [1] "factor"#alcolfactortomamedicina<-factor(diabetes2$RegularMedicine)
levels(tomamedicina)=c("yes","no")
class(tomamedicina)## [1] "factor"#tomamedicinacomidacha<-factor(diabetes2$JunkFood)
levels(comidacha)=c("often","occasionally","very often", "always")
class(comidacha)## [1] "factor"#junkfoodfactorestresfactor<-factor(diabetes2$Stress)
levels(estresfactor)=c("not at all","sometimes","very often", "always")
class(estresfactor)## [1] "factor"#estresfactornivelbp<-factor(diabetes2$BPLevel)
levels(nivelbp)=c("normal","high","low")
class(nivelbp)## [1] "factor"#nivelbporinarfrec<-factor(diabetes2$UriationFreq)
levels(orinarfrec)=c("not much","quite often")
class(orinarfrec)## [1] "factor"#orinarfrecdiabeticofac<-factor(diabetes2$UriationFreq)
levels(diabeticofac)=c("yes","no")
class(diabeticofac)## [1] "factor"#diabeticofac