log_score() function factory

Create a function wrapping log_score() with specified parameters.

Usage

make_log_score(at = NULL, after = NULL, bw = NULL)

Arguments

at

See ?log_score

after

See ?log_score

bw

See ?log_score

Value

A function wrapping log_score() with the given parameters

Examples

dat <- c(1.65333590, -0.45354373, -0.72833227, -0.57932896,  0.22393422)
fc <- create_forecast(dplyr::tibble(time=rep(1,5), val=dat), forecast_time=1)
obs <- data.frame(time=1, val_obs=0)

logs <- make_log_score(at=1)
logs(fc, obs)
#> [1] -0.9440963

logs2 <- make_log_score(after=0, bw=0.3)
logs2(fc, obs)
#> [1] -1.075019