library(ts)

fn_mean <- ts_function(mean, x = ts_numeric(), result = ts_numeric(1))
fn_first <- ts_function(function(x) x[1],
    x = ts_character(-1), result = ts_character(1)
)

sample_num <- ts_function(
    sample,
    x = ts_numeric(0),
    result = ts_numeric(1)
)