# NOT RUN {
plausible_values <- data.frame(
prodcode = c('a', 'b', 'c'),
min_qty = 0,
max_qty = c(50, 100, 200),
min_ndd = 0,
max_ndd = c(10, 20, 30)
)
drug_prep(example_therapy,
plausible_values,
decisions = c('a', 'a', 'a', 'a', 'a',
'c', 'a', 'a', 'a', 'a'))
# }
Run the code above in your browser using DataLab