Air_Casting

Importar Datos:

A continuación se importan los datos tomados en la zona de la cafeteria central, en la Pontificia Universidad Javeriana de Cali:

library(readr)

## Warning: package 'readr' was built under R version 4.5.2

Central_1 <- read_csv("C:/Users/isacv/Downloads/sessions_2026020221162420260202-1740901-nfiava/Central_1.csv",skip = 8)

## Rows: 267 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (1): Session_Name
## dbl  (4): ObjectID, Latitude, Longitude, 1:Measurement_Value
## dttm (1): Timestamp
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

require(leaflet)

## Cargando paquete requerido: leaflet

## Warning: package 'leaflet' was built under R version 4.5.2

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

En estos es posible ver…

Exploración de los datos:

require(table1)

## Cargando paquete requerido: table1

## Warning: package 'table1' was built under R version 4.5.2

## 
## Adjuntando el paquete: 'table1'

## The following objects are masked from 'package:base':
## 
##     units, units<-

Central_1$`1:Measurement_Value`

##   [1] 69 71 70 69 70 69 72 72 70 70 70 72 71 70 70 71 71 71 71 72 73 71 72 71 71
##  [26] 72 70 71 71 73 71 71 72 70 73 71 72 72 70 70 71 70 69 71 75 70 69 69 68 67
##  [51] 69 70 68 68 70 67 71 69 70 70 67 69 70 68 72 69 65 71 70 74 68 66 65 67 67
##  [76] 68 66 66 65 67 65 66 64 65 65 66 64 61 62 64 63 64 63 61 68 64 65 64 63 62
## [101] 61 61 62 62 62 62 61 61 62 61 60 62 60 61 60 60 60 61 68 67 62 61 61 62 62
## [126] 65 67 66 67 69 71 70 70 71 72 72 71 69 68 67 67 66 68 68 67 62 62 62 63 62
## [151] 61 62 61 62 63 62 63 63 63 63 65 63 64 65 66 65 64 66 64 64 66 64 64 65 64
## [176] 64 64 65 65 65 65 65 65 65 65 65 64 67 66 68 67 71 67 65 66 67 67 67 66 68
## [201] 68 68 66 67 67 68 70 70 70 74 76 74 74 73 74 72 72 72 80 78 70 71 72 70 71
## [226] 73 70 68 70 73 69 73 71 72 70 70 71 76 72 72 70 70 70 70 70 70 72 72 71 71
## [251] 73 71 71 71 71 73 73 73 70 72 71 74 71 73 76 73 75

table1(~.,data=Central_1[,4:6])

	Overall (N=267)
Latitude
Mean (SD)	3.35 (0.000139)
Median [Min, Max]	3.35 [3.35, 3.35]
Longitude
Mean (SD)	-76.5 (0.000146)
Median [Min, Max]	-76.5 [-76.5, -76.5]
1:Measurement_Value
Mean (SD)	67.9 (4.01)
Median [Min, Max]	68.0 [60.0, 80.0]