• 동일 신용등급 채권의 수익률 사용
• Baa 등급 채권을 평가하려면 quantmod에서 데이터를 가져옵니다

library(quantmod)
baa <- getSymbols("DBAA", src = "FRED", auto.assign = FALSE)
yield <- baa["2024"]
head(yield)

           DBAA
2024-01-01   NA
2024-01-02 5.57
2024-01-03 5.57
2024-01-04 5.64
2024-01-05 5.70
2024-01-08 5.66