setwd("C:/Users/alexa/OneDrive/Desktop/Arod/BE")
options(digits = 3, scipen = 99999, stringsAsFactors = FALSE)
remove(list = ls())
graphics.off()
#load libraries
suppressWarnings({
suppressPackageStartupMessages({
library(tidyverse)
library(pdfetch)
library(lubridate)
library(ggplot2)
library(forecast)
library(tsbox)
library(tsibble)
library(timetk)
library(TSstudio)
library(rio)
library(pdfetch)
library(tidyr)
library(stringr)
library(dygraphs)
library(quantmod)
library(broom)
})
})
# Gather the following economics activity series for the state of Connecticut:
rwct= pdfetch_FRED("RTWVDCT684NMFRBDAL")
emp= pdfetch_FRED("CTNA")
earn= pdfetch_FRED("SMU09000000500000003")
hours= pdfetch_FRED("SMU09000000500000002")Final Project
Quarto
Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see https://quarto.org.
Running Code
When you click the Render button a document will be generated that includes both content and the output of embedded code. You can embed code like this:
You can add options to executable code like this
The rwct series is a xts object with 1 variable and 426 observations
Frequency: monthly
Start time: 1988-01-31
End time: 2023-06-30
The emp series is a xts object with 1 variable and 411 observations
Frequency: monthly
Start time: 1990-01-31
End time: 2024-03-31
The earn series is a xts object with 1 variable and 207 observations
Frequency: monthly
Start time: 2007-01-31
End time: 2024-03-31
The hours series is a xts object with 1 variable and 207 observations
Frequency: monthly
Start time: 2007-01-31
End time: 2024-03-31
Warning in window.default(x, ...): 'start' value not changed
RTWVDCT684NMFRBDAL CTNA SMU09000000500000003 SMU09000000500000002 CTIndex
1 0.780 0.987 0.718 0.980 3.47
2 0.778 0.986 0.729 0.968 3.46
3 0.777 0.986 0.722 0.977 3.46
Scale for x is already present.
Adding another scale for x, which will replace the existing scale.
The echo: false option disables the printing of code (only output is displayed).