my_vignette

Load R packages

library(telraamStatsAgisTaTerre)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

Download data

key <- readLines("../key.txt")

df1 <- retrieve_sensor(id_sensor = 9000002156,
                       date1 = as.Date('2023-01-01'), 
                       date2 = as.Date('2023-07-01'),
                       )

df2 <- retrieve_sensor(id_sensor = 9000001906,
                       date1 = as.Date('2023-01-01'), 
                       date2 = as.Date('2023-07-01'),
                       )

data <- rbind(df1, df2)

Compare time periods

Difference between weekends and working days

# data2 <- data %>% 
#   filtering()
#   
#   
#   mutate(week_day = lubridate::wday(date),
#          weekend = week_day %in% c(1, 7))
#   
# test <- lm()
# date_range <- max(df$date)-min(df$date)
# mobility <- "car"