# NOT RUN {
# Define function with equal sampling probability
a <- param_random(1:5)
a()
# Define function with unequal sampling probability
b <- param_random(1:5, prob = c(0.1, 0.1, 0.1, 0.1, 0.6))
b()
# }
Run the code above in your browser using DataLab