# Synthetic example: fill interior NAs
d <- seq(as.Date("2024-01-01"), by = "month", length.out = 6L)
df <- data.frame(date = d, series_id = "X",
value = c(NA, 2, NA, NA, 5, NA))
fred_interpolate(df, method = "locf")
fred_interpolate(df, method = "linear")
# \donttest{
op <- options(fred.cache_dir = tempdir())
try({
if (FALSE) {
gdp <- fred_series("GDPC1", from = "2020-01-01")
gdp_monthly <- fred_interpolate(gdp, method = "linear")
}
})
options(op)
# }
Run the code above in your browser using DataLab