Nothing
.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]
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.