Importar Datos

A continuación vamos a importar los datos recorrido del sonido realizado en la zona… como se puede observar en el mapa:

library(readr)
sonido_bestial <- read_csv("~/Desktop/sonido_bestial.csv",skip = 8)


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

En el mapa se puede observar que el recorrido corresponde a la PUJ edicio…

Exploración de Datos

A continuación vamos a explorar los niveles de ruido por jornada:

##crear un campo hipotetico que se llama jornada=dia o noche
n=dim(sonido_bestial)[1]/2

jornada=c(rep("dia",n),rep("noche",n))

sonido_bestial$jornada=jornada

##Exploración del ruido por jornada
require(table1)
table1(~`1:Measurement_Value`|jornada,data = sonido_bestial)
dia
(N=54)		 noche
(N=54)		 Overall
(N=108)
1:Measurement_Value
Mean (SD) 69.6 (6.90) 71.4 (5.66) 70.5 (6.35)
Median [Min, Max] 68.7 [54.9, 86.3] 70.7 [61.2, 85.5] 69.9 [54.9, 86.3]

En la tabla no se observan diferencias en los niveles de ruido por jornada….