library(knitr)
diabetes2 <- read.csv("~/diabetes2.txt", sep = ";", dec = ".")
head(diabetes2, 15)##Introduccion
Las enfermedades crónicas representan un desafío significativo para la salud global en la actualidad. Estas condiciones de salud persisten a lo largo del tiempo y generalmente progresan lentamente. A diferencia de las enfermedades agudas, que suelen tener un inicio repentino y una duración limitada, las enfermedades crónicas pueden perdurar durante meses, años o toda la vida de una persona.
##Descripcion de la data
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 hembras. Se pidió a los participantes que respondieran un cuestionario que se muestra en la Tabla 1, que fue preparado por ellos mismos en base a las limitaciones que podrían 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 [28] que se muestra en la Tabla 1. La Figura 6 muestra un conjunto de datos de muestra. recopilados a través de cuestionario.
##Varibales
Edad: Genero: Historia familiar con diabetes: Diagnostico con alta presion arterial: Fisicamente activo: IMC: De fumar: Consumo de alcoho: Horas de sueño: Horas de sueño profundo Numérico: Ingesta regular: consumo de comida chatarra: Estrés: nivel de presión arterial: Numero de embarazos: Frecuencia de miccion: Diabético:
##Descripcion de variables
Edad:.- Período de tiempo que ha transcurrido desde el nacimiento de una persona, un ser vivo o una entidad
Genero:.- Identificación interna y profunda de una persona como hombre, mujer
Historia familiar con diabetes:.- Se refiere a la presencia de esta enfermedad en los antecedentes médicos de una familia
Diagnostico con alta presion arterial: Concentración de glucosa plasmática y respondemos con si o no
Fisicamente activo: para medir la presion arterial
IMC: Grosor del pliegue cutáneo del tríceps
De fumar:.- Se refiere comúnmente al acto de inhalar y exhalar el humo producido por la combustión de sustancias, especialmente tabaco.
Consumo de alcohol:.- Es una práctica común en muchas culturas y sociedades, y puede tener una variedad de efectos tanto en la salud como en el bienestar general de las personas.
Horas de sueño: La cantidad de horas de sueño que una persona necesita puede variar según su edad, estado de salud, estilo de vida y otros factores individuales.
Horas de sueño profundo Numérico: Nos da valores de Diabético – 268 y No diabéticos - 500
Ingesta regular:.-
consumo de comida chatarra: alimentos que son bajos en valor nutricional pero altos en calorías, grasas, azúcares y sal.
Estrés:.-Una respuesta natural del cuerpo ante situaciones percibidas como desafiantes o amenazantes.
nivel de presión arterial:.- Fuerza que ejerce la sangre contra las paredes de las arterias mientras el corazón bombea y se relaja.
Numero de embarazos:.-
Frecuencia de miccion:.-La cantidad de veces que una persona va al baño para orinar, puede variar según diversos factores, como la cantidad de líquidos que se consumen, la edad, la salud general y la presencia de ciertas condiciones médicas.
Diabético:.- Es una enfermedad crónica que se produce cuando el cuerpo no puede producir suficiente insulina
##Tipos de variables
classses = sapply(diabetes2,class)
classses## 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"##Conversion de variable Age
##Age
diabetes2$Age <- factor(diabetes2$Age, levels = c("40-49", "50-59", "60 or older", "lees than 40"))##Gender
diabetes2$Gender <- factor(diabetes2$Gender, levels = c("40-49", "50-59", "60 or older", "lees than 40"))##PhysicallyActive
diabetes2$PhysicallyActive = factor(diabetes2$PhysicallyActive)
levels=c("less half an hr", "More than half an hr", "none","one hour or more")##Family_diabetes
diabetes2$Family_Diabetes <- factor(diabetes2$Family_Diabetes)
levels=c("yes","no")##Smoking
diabetes2$Smoking <- factor(diabetes2$Smoking)
levels=c("yes","no")##Alcohol
diabetes2$Alcohol <- factor(diabetes2$Alcohol)
levels=c("yes","no")##RegularMedicine
diabetes2$RegularMedicine <- factor(diabetes2$RegularMedicine)
levels=c("yes","no")##JunkFood
diabetes2$JunkFood<- factor(diabetes2$JunkFood)
levels=c("often","occasionally","
very often","always")##Stress
diabetes2$Stress<- factor(diabetes2$Stress)
levels=c("not at all", "sometimes" , "very often","always")##BPLevel
diabetes2$BPLevel<- factor(diabetes2$BPLevel)
levels=c("normal","high","low")##Pdiabetes
diabetes2$Pdiabetes<- factor(diabetes2$Pdiabetes)
levels=c("0","yes")##UriationFreq
diabetes2$UriationFreq<- factor(diabetes2$UriationFreq)
levels=c("not much","quite often")##Diabetic
diabetes2$Diabetic<- factor(diabetes2$Diabetic)
levels=c("no","yes")