som-sam-forecast/script.R at main · tiliini/som-sam-forecast · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#===============================================================================
#                      TIME SERIES FORECASTING WORKFLOW
#===============================================================================

## ---- Load required libraries ------------------------------------------------

library(tidyr)
library(dplyr)
library(lubridate)
library(tsibble)
library(feasts)
library(ggplot2)
library(fable)
library(fabletools)
library(sf)
library(cyphr)
library(rsample)

## ---- Retrieve secret key ----------------------------------------------------

secret_key <- data_key(".", Sys.getenv("path_secret_key"))

## ---- Read project-specific functions ----------------------------------------

lapply(list.files(path = "R", full.names = TRUE), FUN = source)

## ---- Read data in -----------------------------------------------------------

source("scripts/read-in-data.R")

## ---- Data wrangling ---------------------------------------------------------

source("scripts/data-wrangling.R")

## ---- Exploratory Data Analysis ----------------------------------------------

source("scripts/exploratory-data-analysis.R")

## ---- Decomposition ----------------------------------------------------------

source("scripts/decomposition.R")

## ---- Split input data into training and test set ----------------------------

source("scripts/split-training-test-data.R")

## ---- Forecasts --------------------------------------------------------------

source("scripts/training-test-forecast-pastoral.R")
source("scripts/training-test-forecast-agropastoral.R")
source("scripts/training-test-forecast-riverine.R")
source("scripts/training-test-forecast-urbanidps.R")

# ================================ End of workflow =============================