# NOT RUN {
# Define a new type of real variable where the first parameter of the
# sampling distribution is updated through the median (instead of the
# mean):
type_real(
type = 'real2',
x2v = function(x) { c(median(x), sd(x)) }
)
# Define a new type of real variable whith different smoothing
# parameters:
type_real(
type = 'real3',
smooth = list(
quote(smooth_lin(x, xt, 0.8)),
quote(smooth_dec(x, xt, 0.99, 15))
)
)
# }
Run the code above in your browser using DataLab