Coerce a plain function to a score (simple cases)

Coerce a plain function to a score (simple cases)

Usage

as_score(f, s, name = deparse(substitute(f)))

Arguments

f

function(idxs, data, ctx, rng) -> scalar

s

integer order

name

character scalar used as the score name (optional)

Value

A ustat_score

See also

new_score(), score_eval()

Examples

sc <- as_score(function(idxs, data) prod(data[idxs]), s = 2L, name = "prod2")
score_eval(sc, c(1L, 3L), c(2, 4, 6), NULL)
#> [1] 12