Carga datos

A continuación se cargan las bases de datos del ejercicio del sonido:

library(readr)
ciencias <- read_csv("Estadistica para Biologos/ciencias.csv",skip = 8)
licenciatura <- read_csv("Estadistica para Biologos/licenciatura.csv",skip = 8)

sonido=rbind.data.frame(ciencias,licenciatura)

Ahora mostrare la base de datos combinada de las mediciones

head(sonido)

Exploración

EVerificar que los puntos sean apropiados o que se vean en el espacio que se tomaron los datos:

require(leaflet)
leaflet() %>% addTiles() %>%
  addCircleMarkers(lng=sonido$Longitude,lat=sonido$Latitude)

Evaluación ruido Ciencias vs. Licenciatura

Primero se genera la tabla general de la media

require(table1)
table1(~`1:Measurement_Value`,data=sonido)
Overall
(N=2358)
1:Measurement_Value
Mean (SD) 68.5 (5.53)
Median [Min, Max] 68.3 [54.1, 85.3]

Se valida la hipotesis de que los datos concuerdan con una hipotesis planteada de ruido:

table1(~`1:Measurement_Value`|Session_Name,data=sonido)
Ciencias
(N=1164)		 Licenciatura
(N=1194)		 Overall
(N=2358)
1:Measurement_Value
Mean (SD) 66.1 (4.98) 70.8 (4.99) 68.5 (5.53)
Median [Min, Max] 65.7 [54.1, 82.6] 70.7 [57.0, 85.3] 68.3 [54.1, 85.3]

De manera grafica podemos evaluar la hipotesis con un boxplot

require(ggplot2)
## Cargando paquete requerido: ggplot2
ggplot(sonido,aes(y=`1:Measurement_Value`,x=Session_Name,fill=Session_Name))+geom_boxplot()+theme_bw()