R/time_formula functions.R

In maxikellerbauer/stAirPol: Spatio-temporal Modelling of Air Pollution Data

Defines functions hour weekday intercept

Documented in hour intercept weekday

#' hour
#'
#' @param x a timestamp
#'
#' @export
hour <- function(x) {
  as.factor(lubridate::hour(x))
}


#' weekday
#'
#' @param x a timestamp
#'
#' @export
weekday <- function(x) {
  as.factor(lubridate::wday(x))
}

#' intercept
#'
#' @param x a timestamp
#'
#' @export
intercept <- function(x) {
  as.factor(x)
}