Part 1

setwd("~/AREC_ps5")

install.packages("dplyr")

library(dplyr)

install.packages("lubridate")

library(lubridate)

install.packages("tidyquant")

library(tidyquant,quietly = T)

as.numeric(as.Date("2023-2-23"))

#19411

meat_raw_tq=tq_get(c("APU0000FD3101","APU0000FF1101","APU0000703112"),get = "economic.data",from="1980-01-01",to="2023-02-23")

glimpse(food_raw_tq)

table(food_raw_tq$symbol)

meat_prices=food_raw_tq%>%

  mutate(description=case_when(

    symbol=="APU0000FD3101"~"Pork Chop Prices",

    symbol=="APU0000FF1101"~"Chicken Meat Prices",

    symbol=="APU0000703112"~"Ground Beef Prices"

  ))

glimpse(food_prices)

write.csv(meat_prices,"Pork_Chicken_Beef_Prices.csv")

sink("Ps5.txt")

source("Ps5.R",echo=TRUE)

sink()

Part 2