Resultados de la encuesta

En el curso de Seminario de Contrucciones integrado por 24 personas de los cuales 11 son hombres y 13 son mujeres se realizó una encuesta en la cual se propuso algunas preguntas deacuerdo a la informacion básica de cada integrante y a partir de las cuales se identificaron las siguientes variables:

M<-read.csv("datos codificados.csv")
colnames(M)

 [1] "Nombre"       "Región"       "Ocupación"    "Estatura"    
 [5] "Edad"         "Sexo"         "Peso"         "X..Hermanos" 
 [9] "X..Hijos"     "Estrato"      "Estado.Civil" "Matricula"   

Se analizó algunas de las variables mencionadas mediante los siguientes gráficos: 1. Para la variable Región se observó que en su gran mayoría los encuestados provienen del Valle del Cauca.

M<-read.csv("datos codificados.csv")
región<-M$Región
hist(región, breaks = 4,main = "Región",col = "cadetblue2")

Con respecto al estado civil de los encuestados se puede observar que el 83.3% se encuentran solteros y solo el 16.7% casados

M<-read.csv("datos codificados.csv")
estadocivil<-M$Estado.Civil
porcentaje<-c(83.3,16.7)
label<-paste(porcentaje,"%",sep = "")
color<-c("bisque2","cadetblue3")
pie(porcentaje,labels = label,clockwise = TRUE,main = "Estado Civil", col = color)
legend("topright",c("Solteros","Casados"),cex = 0.8,fill = color)

Entre los integrantes del curso también se observa que el 62.2% se encuetran realizando un estudio de pregrado, 33.3% de postgrado y solo un 4.2% doctorado.

M<-read.csv("datos codificados.csv")
nivelestudios<-M$NivelEstudio
porcentaje<-c(62.5,33.3,4.2)
label<-paste(porcentaje,"%",sep = "")
color<-c("bisque2","cadetblue3","darkolivegreen2")
pie(porcentaje,labels = label,clockwise = TRUE,main = "Nivel de Estudio", col = color)
legend("topright",c("Pregrado","Postgrado","PhD"),cex = 0.8,fill = color)

Para las variables Peso, Hermanos y Edad se calculó las medidas de tendencia central(media, mediana y moda) y de dispersión(varianza y desviación estandar):

1. Peso: El promedio del peso de los integrantes del curso de Seminario de Estructuras correspondiente es de 67.04348 kg. La mitad de los integrantes tienen un peso correspondiente a 65 kg. La varianza correspondiente al peso de los integrantes es de 179.5889 La desviación estandar de la muestra trabajada corresponde a 13.06097 La mayoria de los integrantes pesan 57 kg.

M<-read.csv("datos codificados.csv")
peso<-M$Peso
mean(peso)

[1] 67.04348

median(peso)

[1] 65

var(peso)

[1] 170.5889

sd(peso)

[1] 13.06097

library("modeest")
mlv(peso,method="discrete")

Mode (most frequent value): 57 
Bickel's modal skewness: 0.4782609 
Call: mlv.integer(x = peso, method = "discrete") 

2. Estatura: El promedio del número de hermanos de los integrantes del curso de Seminario de Estructuras correspondiente es de 2.5 . La mitad de los integrantes tienen 2 hermanos. La varianza correspondiente al peso de los integrantes es de 3.5 La desviación estandar de la muestra trabajada corresponde a 1.88 La mayoria de los integrantes tienen 1 hermano.

M<-read.csv("datos codificados.csv")
hermanos<-M$X..Hermanos
mean(hermanos)

[1] 2.478261

median(hermanos)

[1] 2

var(hermanos)

[1] 3.533597

sd(hermanos)

[1] 1.879786

library("modeest")
mlv(hermanos,method="discrete")

Mode (most frequent value): 1 
Bickel's modal skewness: 0.4782609 
Call: mlv.integer(x = hermanos, method = "discrete") 

3. Edad: El promedio de edad de los integrantes del curso de Seminario de Estructuras correspondiente es de 28.74 años. La mitad de los integrantes tienen un peso correspondiente a 25. La varianza correspondiente al peso de los integrantes es de 81.11 La desviación estandar de la muestra trabajada corresponde a 9.006 La mayoria de los integrantes tienen 23 años.

Para la variable Edad se puede observar en el siguiente gráfico del histograma que la edad de la mayoría de los encuestados se encuentra entre los 20 y 30 años

M<-read.csv("datos codificados.csv")
edad<-M$Edad
hist(edad, breaks = 3,main = "Edad",col = "darkolivegreen2")

mean(edad)

[1] 28.73913

median(edad)

[1] 25

var(edad)

[1] 81.11067

sd(edad)

[1] 9.006146

library("modeest")
mlv(edad,method="discrete")

Mode (most frequent value): 23 
Bickel's modal skewness: 0.3913043 
Call: mlv.integer(x = edad, method = "discrete")