library(distionary)
set.seed(2024)
sample_data <- rgamma(100, shape = 2, rate = 0.4)
fitted_gamma <- fit_dst("gamma", x = sample_data, method = "mle")
fitted_gamma
parameters(fitted_gamma)
enframe_return(fitted_gamma, at = c(2, 5, 10))
Run the code above in your browser using DataLab