Arregla error en ejemplo

R/ith.R

@@ -28,7 +28,7 @@
 #' # En el contexto de mutate
 #' library(dplyr)
 #' NH0358 %>%
-#'   filter(!is.na(hr)) |>
+#'   filter(!is.na(hr)) %>%
 #'   mutate(t_media = (t_max + t_min)/2) %>%
 #'   mutate(ith = ith(t_media, hr)) %>%
 #'   slice_head(n = 10)

R/spi.R

@@ -43,6 +43,7 @@
 #' @examples
 #'
 #' library(dplyr)
+#' data(NH0358)
 #'
 #' datos_mensuales <- NH0358 %>%
 #'   group_by(fecha = lubridate::round_date(fecha, "month")) %>%
@@ -61,16 +62,16 @@
 #' # Usando un vector lógico
 #' datos_mensuales %>%
 #'   reframe(spi_indice(fecha, precip, escalas = 1:12,
-#'                      referencia = lubridate::year(fecha) < 2016)) %>%
+#'                      referencia = data.table::year(fecha) < 2016)) %>%
 #'   slice_head(n = 10)
 #'
 #' # O un data.frame
-#' datos_2016 <- datos %>%
-#'  filter(lubridate::year(fecha) < 2016)
+#' datos_2016 <- datos_mensuales %>%
+#'  filter(data.table::year(fecha) < 2016)
 #'
 #' datos_mensuales %>%
 #' reframe(spi_indice(fecha, precip, escalas = 1:12,
-#'                    referencia = spi_referencia(datos_2016$fecha, datos_2016$pp)) %>%
+#'                    referencia = spi_referencia(datos_2016$fecha, datos_2016$precip))) %>%
 #'   slice_head(n = 10)
 #'
 #'