Detailed Forecast Archive

Links to all forecasts from this season may be found below.

library(dplyr)


Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

spreadsheets = readRDS("in/existing_spreadsheets.rds") |>
  transmute(file = basename(Key)) |>
  arrange(desc(file)) |>
  mutate(file = paste0("spreadsheets/", file),
         issue_date = sub(".*(\\d{4}-\\d{2}-\\d{2}).*", "\\1", file),
         issue_date = lubridate::ymd(issue_date),
         issue_date = format(issue_date, "%b %-d, %Y"))

  for (i in seq_len(nrow(spreadsheets))) {
    cat(paste0("* [", spreadsheets[i, "issue_date"], "](", spreadsheets[i, "file"], ")\n"))
  }

This information is preliminary or provisional and is subject to revision. It is being provided to meet the need for timely best science. The information has not received final approval by the U.S. Geological Survey (USGS) and is provided on the condition that neither the USGS nor the U.S. Government shall be held liable for any damages resulting from the authorized or unauthorized use of the information. These forecasts are being delivered on an experimental basis and will be discontinued on September 30, 2023. For more information on how these forecasts are generated, see the article by Zwart et al. 2023a and Zwart et al. 2023b.