# 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