# Normal kernel with a small scale (sd) of 0.05
kern <- kernel_normal(scale = 0.05)
# Using boundaries for the second parameter of a two parameter chain
# to have values in [0, 100].
kern <- kernel_normal_reflective(
ub = c(.Machine$double.xmax, 100),
lb = c(-.Machine$double.xmax, 0)
)
Run the code above in your browser using DataLab