## Seguridad biciusuarios uis En la UIS han sucedido casos de robos de bicicletas lo cual es un tema muy preocupante si se tiene en cuenta que algunos estudiantes, como en mi caso, contamos únicamente con este medio de transporte para llegar a la universidad. El objetivo es saber que tan satisfechos se sienten los biciusuarios UIS con la seguridad dentro del campus para lo cual se usó la siguiente encuesta: https://forms.gle/ztu2Y57J1baSyDPQ6.
Para encontrar el valor del total de bicicletas que entran al campus principal en un día se realizó una aproximación usando la información suministrada por los celadores que reparten los tickets. Por la entrada de la carrera 27 se gastan en promedio todos los días 5 talonarios. Por las carreras 25 y 30 se tiene que en cada una de estas porterías se gastan en promedio 1.5 talonarios diariamente. Si tenemos en cuenta que cada talonario tiene 100 tickets podemos hacernos una idea del total de bicicletas que ingresan en un día a la universidad dejándonos como resultado:
N=100*1.5 + 100*1.5 + 100*5
N## [1] 800el total de bicicletas que ingresan en un día a la universidad es 800
Para la prueba piloto se realizaron 6 encuestas para variable continua basándose en un muestreo aleatorio simple. El objetivo de esta prueba piloto fue obtener la varianza deseada por el investigador y la varianza de la variable de interes.
library(readxl)
PruebaPiloto <- read_excel("C:/Users/JHOSET/Downloads/PruebaPiloto.xlsx")
attach(PruebaPiloto)
varianza_Piloto = var(Seguridad_P)
Desviacion_Piloto = sd(Seguridad_P)
Desviacion_Deseada = 1/4 * Desviacion_Piloto
Varianza_Investigador = Desviacion_Deseada^2
Varianza_Investigador## [1] 0.2666667varianza_Piloto## [1] 4.266667la varianza deseada es 0.266667 y la varianza de la variable de interes en la prueba piloto fue 4.26666667
Con los datos que obtuvimos anteriormente procedemos a calcular el tamaño de la muestra para saber cuantas personas vamos a encuestar
muestra=(N*varianza_Piloto)/((N*Varianza_Investigador)+varianza_Piloto)
n=round(muestra)
n## [1] 16es decir que tenemos que realizar 16 encuestas
Al contar con un marco muestral que se obtuvo de manera aproximada y partiendo del hecho de que solo se van a encuestar personas que vayan entrando a la universidad en bicicleta se optó por elegir un muestreo sistemático. Se calculó la amplitud de muestreo y se aleatorizó un numero entre 1 y la amplitud de muestreo para realizar el muestreo sistemático.
AM=N/n
set.seed(9)
Encuetar_Cada = sample(1:AM,1)
Encuetar_Cada## [1] 6Es decir que nos vamos a parar en la porteria y vamos a encuestar cada 6 personas que entren
library(readxl)
Encuesta <- read_excel("C:/Users/JHOSET/Downloads/Encuesta.xlsx")
attach(Encuesta)
Promedio_Edad=mean(Edad)
Promedio_Edad## [1] NAEn promedio de la edad de las personas encuestadas es de 20.75
promedio_Semestres=mean(Semestres)La promedio de semestres matriculados es 6
library(fdth)##
## Attaching package: 'fdth'## The following objects are masked from 'package:stats':
##
## sd, vartabla1=fdt_cat(Sexo)
tabla1## Category f rf rf(%) cf cf(%)
## masculino 10 0.62 62.5 10 62.5
## Femenino 6 0.38 37.5 16 100.0Hay más hombres que mujeres usando la bicicleta
library(fdth)
tabla1=fdt_cat(Estrato)
tabla1## Category f rf rf(%) cf cf(%)
## Estrato 3 8 0.50 50.00 8 50.00
## Estrato 2 6 0.38 37.50 14 87.50
## Estrato 1 1 0.06 6.25 15 93.75
## Estrato 4 1 0.06 6.25 16 100.00Claramente mayoria de personas que viene en cicla son estrato 3
library(fdth)
tabla1=fdt_cat(Uso)
tabla1## Category f rf rf(%) cf cf(%)
## 5 a 6 veces por semana 5 0.31 31.25 5 31.25
## 3 a 4 veces por semana 4 0.25 25.00 9 56.25
## 9 a 10 veces por semana 3 0.19 18.75 12 75.00
## 1 a 2 veces por semana 2 0.12 12.50 14 87.50
## 7 a 8 veces por semana 1 0.06 6.25 15 93.75
## mas de 10 veces por semana 1 0.06 6.25 16 100.00La frecuencia de uso que mas s repitiió fue de 5 a 6 veces por semana (posiblemente porque la usan una vez por dia)
Promedio_Seguridad=mean(Seguridad)
Promedio_Seguridad## [1] 6.5625En promedio se ve que la gente tiene una percepción mas o menos buena de la seguridad (6.56)
library(gmodels)
tabla4=CrossTable(Sexo,Uso,prop.r = F,prop.t = F,expected = F,prop.chisq = F)##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Col Total |
## |-------------------------|
##
##
## Total Observations in Table: 16
##
##
## | Uso
## Sexo | 1 a 2 veces por semana | 3 a 4 veces por semana | 5 a 6 veces por semana | 7 a 8 veces por semana | 9 a 10 veces por semana | mas de 10 veces por semana | Row Total |
## -------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|
## Femenino | 0 | 3 | 3 | 0 | 0 | 0 | 6 |
## | 0.000 | 0.750 | 0.600 | 0.000 | 0.000 | 0.000 | |
## -------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|
## masculino | 2 | 1 | 2 | 1 | 3 | 1 | 10 |
## | 1.000 | 0.250 | 0.400 | 1.000 | 1.000 | 1.000 | |
## -------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|
## Column Total | 2 | 4 | 5 | 1 | 3 | 1 | 16 |
## | 0.125 | 0.250 | 0.312 | 0.062 | 0.188 | 0.062 | |
## -------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|----------------------------|
##
## tabla4## $t
## y
## x 1 a 2 veces por semana 3 a 4 veces por semana
## Femenino 0 3
## masculino 2 1
## y
## x 5 a 6 veces por semana 7 a 8 veces por semana
## Femenino 3 0
## masculino 2 1
## y
## x 9 a 10 veces por semana mas de 10 veces por semana
## Femenino 0 0
## masculino 3 1
##
## $prop.row
## y
## x 1 a 2 veces por semana 3 a 4 veces por semana
## Femenino 0.0 0.5
## masculino 0.2 0.1
## y
## x 5 a 6 veces por semana 7 a 8 veces por semana
## Femenino 0.5 0.0
## masculino 0.2 0.1
## y
## x 9 a 10 veces por semana mas de 10 veces por semana
## Femenino 0.0 0.0
## masculino 0.3 0.1
##
## $prop.col
## y
## x 1 a 2 veces por semana 3 a 4 veces por semana
## Femenino 0.00 0.75
## masculino 1.00 0.25
## y
## x 5 a 6 veces por semana 7 a 8 veces por semana
## Femenino 0.60 0.00
## masculino 0.40 1.00
## y
## x 9 a 10 veces por semana mas de 10 veces por semana
## Femenino 0.00 0.00
## masculino 1.00 1.00
##
## $prop.tbl
## y
## x 1 a 2 veces por semana 3 a 4 veces por semana
## Femenino 0.0000 0.1875
## masculino 0.1250 0.0625
## y
## x 5 a 6 veces por semana 7 a 8 veces por semana
## Femenino 0.1875 0.0000
## masculino 0.1250 0.0625
## y
## x 9 a 10 veces por semana mas de 10 veces por semana
## Femenino 0.0000 0.0000
## masculino 0.1875 0.0625library(crosstable)
tabla5=crosstable(Encuesta,c(Sexo),by=c(Seguridad))## Warning in crosstable(Encuesta, c(Sexo), by = c(Seguridad)): Could not cross
## column 'Sexo' (character) by column 'Seguridad' (numeric))tabla5## # A tibble: 0 × 0las mujeres tienen mejor percepción de seguridad que los hombre