28 lines
420 B
R
28 lines
420 B
R
# overload input/return types
|
|
sample_num <- ts_function(
|
|
sample,
|
|
x = ts_numeric(0),
|
|
result = ts_numeric(1)
|
|
)
|
|
|
|
sampler <- ts_function(
|
|
function() {
|
|
list(
|
|
sample_one = sample_num(0)
|
|
)
|
|
},
|
|
result = ts_list(
|
|
num = sample_num
|
|
)
|
|
)
|
|
|
|
ts_compile(d_normal)
|
|
|
|
# compile to:
|
|
# const sampler = R.ocap(
|
|
# [],
|
|
# R.list({
|
|
# num: R.ocap([], R.numeric(1))
|
|
# })
|
|
# );
|