data_BiGam = rBiGam(100, c(1,4,5))
res_BiGam = MLEce(data_BiGam, "BiGam")
coef(res_BiGam)
data_BiWei = rBiWei(n=50, c(4,3,3,4,0.6))
est_BiWei <-MLEce(data_BiWei, "BiWei")
coef(est_BiWei)
data_Diri <- LaplacesDemon::rdirichlet(n=60, c(3,1,2,4))
est_Diri <- MLEce(data_Diri, "Dirichlet")
coef(est_Diri)
Run the code above in your browser using DataLab