### #install.packages("fredr") library(fredr) fredr_set_key("ce2e515a7aeee4ac49e688f09efe4c69") us_unemp<- fredr( series_id = "UNRATE", observation_start = as.Date("1990-01-01"), observation_end = as.Date("2000-01-01") ) reer_france<- fredr( series_id = "RBFRBIS", observation_start = as.Date("1994-01-01"), observation_end = as.Date("2021-03-01") ) euro_dollar<- fredr( series_id = "DEXUSEU", observation_start = as.Date("1999-01-04"), observation_end = as.Date("2022-07-22") ) #install.packages("ggplot2") library(ggplot2) x11() ggplot(data = reer_france, mapping = aes(x = date, y = value, color = series_id)) + geom_line() + labs(x = "Observation Date", y = "Real Effective Exchange Rate", color = "Series" ) x11() ggplot(data = euro_dollar, mapping = aes(x = date, y = value, color = series_id)) + geom_line() + labs(x = "Observation Date", y = "U.S. Dollars to Euro Spot Exchange Rate", color = "Series" ) ###