Fix example

R/interpolation-class.R

@@ -167,14 +167,17 @@ interpolate_dfs.ZeroCurve <- function(x, from, to, ...) {
 #' @param interp_data `data.frame` object with three vectors x, y and z
 #' @param x0 numeric vector containing the points at which to perform the interpolation along the first dimension
 #' @param y0 numeric vector containing the points at which to perform the interpolation along the second dimension
-#' @examples vols <- build_vol_quotes()
-#'  interp_data <- tibble::tibble(x = fmdates::year_frac(vols$reference_date,
-#' as.Date(vols$maturity,"%Y%m%d"), "act/365"),
-#' y = vols$smile,
-#' z = vols$value)
+#' @examples
+#' vols <- build_vol_quotes()
+#' interp_data <- tibble::tibble(
+#'   x = fmdates::year_frac(attr(vols, "reference_date"),
+#'     as.Date(vols$maturity,"%Y%m%d"), "act/365"),
+#'   y = vols$smile,
+#'   z = vols$value
+#' )
 #' x0 <- c(2.5, 3.5)
 #' y0 <- c(22, 55)
-#' linear_cubic_interp(interp_data = interp_data, x0 = x0, y0 = y0)
+#' linear_cubic_interp(interp_data, x0 = x0, y0 = y0)
 #' @keywords internal
 
 linear_cubic_interp <- function(interp_data, x0, y0) {