Publications by Brandon Pascali

Forecasting Hw#1

08.09.2022

Load packages and data # install and load any package necessary library(fpp3) library(moments) library(tidyverse) library(tidyquant) library(USgas) tute1 <- readr::read_csv("C:\\Users\\PythonAcct\\Downloads\\tute1.csv") tourism1 <- readxl::read_excel("C:\\Users\\PythonAcct\\Downloads\\tourism.xlsx") gme <- readr::read_csv("C:\\Users\\Pyth...

929 sym R (5966 sym/50 pcs) 14 img

Forecast #2

19.09.2022

Load libraries and packages ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.8 ✔ dplyr 1.0.9 ## ✔ tidyr 1.2.0 ✔ stringr 1.4.0 ## ✔ readr 2....

766 sym Python (6699 sym/11 pcs) 2 img

Homework #2

24.09.2022

Load packages and data # install and load any package necessary library(fpp3) library(tidyverse) library(seasonal) Questions Exercise 1 usa_gdp <- global_economy %>% filter(Country=='United States') %>% select(GDP) %>% autoplot(GDP)+ labs(title="USA GDP") usa_gdp No data transformation seems necessary here. slau <- aus_lives...

3777 sym R (9008 sym/65 pcs) 41 img

Homework #3

03.10.2022

Load packages and data library(fpp3) library(tidyverse) library(seasonal) Questions Question 1 Part 1 - I think the drift method will be best for this, because the line seems to be relatively linear. aus <- global_economy %>% filter(Country=="Australia") %>% select(Population) aus %>% autoplot(Population) aus %>% model(RW(P...

4320 sym R (24549 sym/130 pcs) 65 img

Forecast #3

06.10.2022

Load libraries and dataset library(readxl) library(readr) library(fpp3) ## ── Attaching packages ──────────────────────────────────────────── fpp3 0.4.0 ── ## ✔ tibble 3.1.8 ✔ tsibble 1.1.2 ## ✔ dplyr 1.0.9 ✔ tsibbleda...

1301 sym R (7640 sym/47 pcs) 6 img

Homework #4

08.10.2022

Load packages and data library(fpp3) library(tidyverse) library(seasonal) Questions Question 1 Part A ts <- vic_elec %>% filter(year(Date)==2014) %>% filter(month(Date)==01) %>% index_by(Date=as_date(Time)) %>% summarise( Demand=sum(Demand), Temperature=max(Temperature) ) ts %>% autoplot(Demand)+ labs(x='...

5933 sym R (34848 sym/126 pcs) 39 img

Test Questions

21.10.2022

library(fpp3) ## ── Attaching packages ──────────────────────────────────────────── fpp3 0.4.0 ── ## ✔ tibble 3.1.8 ✔ tsibble 1.1.2 ## ✔ dplyr 1.0.9 ✔ tsibbledata 0.4.0 ## ✔ tidyr 1.2.0 ✔ feasts 0.2.2...

7752 sym R (21771 sym/110 pcs) 21 img

Forecast #4

05.11.2022

library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.8 ✔ dplyr 1.0.9 ## ✔ tidyr 1.2.0 ✔ stringr 1.4.0 ## ✔ readr 2.1.2 �...

922 sym R (8377 sym/35 pcs) 7 img

Homework #5

10.11.2022

library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ── ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.8 ✔ dplyr 1.0.9 ## ✔ tidyr 1.2.0 ✔ stringr 1.4.0 ## ✔ readr 2.1.2 �...

1917 sym R (14313 sym/91 pcs) 31 img

Forecast #5

17.11.2022

Here, I load the libraries I will need to run the forecast. library(readr) library(fpp3) ## ── Attaching packages ──────────────────────────────────────────── fpp3 0.4.0 ── ## ✔ tibble 3.1.8 ✔ tsibble 1.1.2 ## ✔ dplyr 1.0.9 ...

870 sym R (3279 sym/21 pcs) 6 img