R/utils.R

Defines functions .complete_cases

.complete_cases <- function(obsv, fcst) {
  keep <- stats::complete.cases(obsv, fcst)
  list(
    obsv = obsv[keep],
    fcst = if (is.matrix(fcst)) fcst[keep, , drop = FALSE] else fcst[keep]
  )
}

Try the afc package in your browser

Any scripts or data that you put into this service are public.

afc documentation built on Sept. 11, 2026, 9:08 a.m.