# NOT RUN {
## Using estimated shape and scale
def <- gamma_dist_def(shape = 5.807, shape_sd = 0.2,
scale = 0.9, scale_sd = 0.05,
max_value = 20, samples = 10)
print(def)
def$params[[1]]
## Using mean and sd
def <- gamma_dist_def(mean = 3, mean_sd = 0.5,
sd = 3, sd_sd = 0.1,
max_value = 20, samples = 10)
print(def)
def$params[[1]]
# }
Run the code above in your browser using DataLab