### Example yields ###

library(readxl)
library(tidyverse)
library(plotly)

# 
yields <- read_xlsx(
  path = "Examples/interestRateData2026.xlsx",
  sheet = "RFR_spot_no_VA",
  range = "B2:AQ152"
  )

p <- yields %>% 
  ggplot(aes(month, `Hong Kong`)) +
  geom_line(color = "steelblue") +
  # ylim(0,0.05) +
  labs(title = "Yield curve example 2026 - Hong Kong (Source: EIOPA)") +
  theme_bw()


  ggplot(yields, aes(month, `Hong Kong`)) +
  geom_line(color = "steelblue") +
  # ylim(0,0.05) +
  labs(title = "Yield curve example 2026 - Hong Kong (Source: EIOPA)") +
  theme_bw()


p
plotly::ggplotly(p)