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